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INTRODUCTION 


If you've got a ZX80 or a ZX81, then this book was written 
for you. The idea was to look at each function and statement in 
ZX BASIC, explain how it works with a demonstration program, 
and then go on to treat other subjects -- such as MOVING 
GRAPHICS, SAVING SPACE, and HOW TO WRITE A 
PROGRAM -- in greater detail. 


As well as that, there are a host of programs designed to be run, 
in the first instance, as they are. When you've examined how | 
achieved the effects | did, | hope you'll go on to modify and 
improve the programs to make them your own. 


The vast majority of the programs in this book have been written 
deliberately to make them easily convertible from machine to 
machine, so whether you have a ZX80 or a ZX81, or you now 
have a ZX80 and will in due course be adding a new ROM or 
buying a ZX81, you'll find a number of programs which you 
can run right away. 


Every computer book writer stands on the shoulders of those 
who have written before he or she came along -- and of course 
I’m no exception. I've probably gained something from every 
computer book I’ve read. Also, of course, I've learned a lot 
from the earlier computer books I've worked on, so hopefully 
this volume will pass on a little of that which was picked up 
along the way. 


More specific acknowledgement should go to Daniel Haywood, 
of Aughton in Lancashire, who wrote several ZX80 games, and 
to Jeremy Ruston who developed a ZX80 equivalent of SET 
and RESET which is used in several places in the book, and 
whose MEMORY LEFT and HEX DUMP are in the appendix. 


A final word: You'll gain the maximum of value from this book 
if you read it with your ZX80 or ZX81 switched on for action 
as you do. This is a doing book, not a reading book. 


Mark Charlton, 
London, 
September 1981 


STARTING FROM 
SCRATCH 


Let's get right down to business. In this book | will make no 
assumptions about things you know (that is, IIl assume you 
know nothing) and ІЛІ also assume you have your ZX80 or 
ZX81 switched on at the appropriate moments. This isa doing 
book, more than a reading one. 


Before you go any further, plug in your computer and turn it 
on. Enter the following program: 

10 PRINT "I AM THINKING OF A NUMBER" 

20 PRINT "BETWEEN ONE AND 100" 

2Х80 

30 LET А = RND(100) 

ZX81 

30 LET A = INT(RND*100) + 1 

40 PRINT "MY NUMBER IS ";А 


Run this, апа then return to the book. 


It is quite incredible the number of things we can learn from 
this simple program, and - - as you'll see in a few minutes time- - 
it can be elaborated into quite a worthwhile game. 


Firstly, each line starts with a line number. These can be any 
numbers you like (from 1 to 9999) but it is advisable to work in 
jumps of, say, 10, so you can add other lines between the ones 
in the listing. Try it now. Type in: 


15 REM... 


When you press NEWLINE, you'll find that 15 enters the 


ESL 


program at the correct position, that is between 10 and 20. As 
you have just seen, the computer automatically sorts line 
numbers into their correct order. 


Now, run it again. Did it look any different (apart from, 
probably, “thinking of a new number )? No, the computer 
ignored line 15. The REM stands for REMark, and is just 
added to a program to aid poor humans. REM statements 
(as they are called) can be used to point out what is coming 
next in a program, so when you LOAD it again in a month's 
time, and you've forgotten what your clever program was 
supposed to do; you can use the REM statement to remind you. 


Now, get rid of line 15 by entering a 15, then pressing 
NEWLINE. A flash , and the line is gone. 


To get back to our discussion of the program. Each starts with 
a line number. After the line number comes the KEY WORD 
which is the word you can enter on a ZX computer by just 
pressing the key where the word is printed. The computer 
knows that the first key pressed after a line number will need a 
key word (such as GOTO, GOSUB or RETURN). 


The key word in lines 10 and 20 is PRINT, and it - - as you can 
see - - tells the computer to PRINT whatever follows the word 
print within quote marks. This is quite clear in lines 10 and 20 
but what about the “А” at the end of line 40? Don't worry 
about that for the moment, we'll come to it shortly. 


Now look to line 30. The key word is LET and what this does is 
tell the computer to LET whatever comes next (in this case the 
letter A) equal what ever is on the other side of the equals sign. 
In ZX BASIC (the language this computer, and most other 
micro-computers use is called BASIC which is an acronym for 
Beginner's All - purpose Symbolic Instruction Code) the thing 
on the first side of the equals sign can be almost anything, as 
long as it starts with a letter. 


MIL try to make that a little clearer. If line 30 had said LET 
SAUSAGE =... etc, the computer would have accepted it. 
So long as the assigned variable (as it is known) starts with a 
letter, it will be accepted and understood by the computer. 
Don't be concerned if that still seems murky, it will become 
clearer as you follow through the book. This chapter is just a 


general introduction to get you underway. We'll be looking in 
greater detail at each statement and function in BASIC later on. 


Now the other side of the equals sign is important. What it does 
is generate a RANDOM NUMBER (and make A equal to it). 
Run the program again, and note which number you end up 
with. Now, run it again, and again, and it is most probable 
you'll see that the ZX computer ‘thinks’ of a different number 
each time. 


The RANDOM NUMBER GENERATOR inside the computer is 
a very useful adjunct to games, as you'll see right throughout 
this book. The two ZX computers use slightly different bits of 
program to generate random numbers so we'd better look at 
these separately. 


First, on the ZX80, you just say LET A = RND (100) if you 
want to get a randon number between one and 100. You have 
to spell out the RND letter by letter. In contract, on the ZX81, 
you do not need to spell out the RND, you'll find itona key, 
which you access by first changing the little cursor into an F 
(which you do by holding down the SHIFT key in the bottom 
left hand corner of the keyboard, and while doing so, press the 
FUNCTION/NEWLINE key on the right-hand side). Once the 
cursor has changed into an F, just press the T key, and the 
RND will appear. 


To get a number between one and a hundred as we want in this 
case, we need to say LET A = INT(RND *100) + 1. The INT is 
short for integer, and turns a number which is not an exact 
number (such as 1.234) into a single integer digit (in this case 


the digit 1). The RND function itself produces numbers ; 


between zero and one, so we need to multiply it by the highest 
number we want (in this case, 100) and add 1. If we did not add 
one, the highest number we would get would be 99 and the 
lowest would be zero. 


The final line of the program, line 40, uses a PRINT statement 
again, but also prints out what is after the quote marks, in this 
case the assigned variable A, and instead of printing the letter A, 
prints out its value. Look carefully after the close of the quote 
marks in line 40 and the A. There is a semicolon there. You 
need that to ensure that the computer continues on printing. 
If you do not have a semicolon or a comma, the ZX computer 


Uum 


will not accept the line. Change the semicolon into a comma in 
line 40, and rerun the program and see what happens. 


Now, if we did not have line 40 in the program, we would not 
know what number the ZX80 or ZX81 had thought of. We 
could make a game of it. Change line 40 as follows: 


40 PRINT "WHAT NUMBER AM I THINKING 


ОЕ?" 


Next we'll add a line to accept the players's guess as to the 
number the computer is thinking of. We do it as follows: 


50 INPUT B 


The INPUT statement is used whenever you want the program 
to stop and wait for a numerical input from the player. You'll 
find after adding line 50, and running the program again, that 
the computer waits for your answer (with a little black blob) 
before continuing. 


This is still not a game, so we need to allow the computer to 
respond to your guess. Add line 60: 


60 IF NOT B = A THEN PRINT "NO, YOU 
ARE WRONG" 


What this does is compare the two numbers (A and B ) and if 
they are NOT equal (and NOT, by the way, is on the N key on 
the ZX81, and on the 1 key on the ZX80), prints out the 
message NO, YOU ARE WRONG. For this to be a game, we 
need to have the chance of making more than one guess, so we 
add line 70: 


70 IF NOT B - A THEN GOTO 50 


Lines 60 and 70 are IF/THEN statements. IF something specific 
is happening. THEN do something (IF the water is boiling 
THEN make a cup of tea). So line 60 prints NO, YOU ARE 
WRONG if A and B are NOT equal, and line 70 sends the 


action back to line 50. The GOTO statement is self-explanatory. 
It can be conditional (as it is in this case) or non-conditional, in 
which case the line would just read GOTO 50. 


Run this, and you'll see you get a number of NO, YOU ARE 
WRONG messages (unless you happen to be lucky). It would be 
better if the computer told you whether your guess was too 
high, or too low. How can we do this? Try and work it out 
before reading on. 


We make use of the greater than and less than symbols on the 
N (less than) and M (greater than) keys. One way of doing it is 
as follows. Enter these and see what happens. 


70 IF B « A THEN PRINT "TOO LOW" 
80 IF B > A THEN PRINT "TOO HIGH" 


90 GOTO 50 


Run this for a while, and you'll find, eventually, that you guess 
the number, but the computer cannot respond to this correct 
guess, because you have made no provision for it to do so. 
Therefore, we'll give it some words to say: 


65 IF В = A THEN СОТО 100 
100 PRINT "YES, YOU ARE RIGHT" 


llO PRINT "I WAS THINKING OF ";A 


Add this, then run it again. Much more satisfactory, and much 
more like a real game. There are just a few more things to add to 
really enhance it. 


It would be good to be able to count the number of goes we 
had, so we can do this by using a third variable, C (there is no 
need, by the way, to use the variables in alphabetical order, but 
it makes for neater programs. You can, if you prefer, spell out 
the word in full, so you could use NUMBER for A, GUESS for 
B and SCORE for C, but this is rather wasteful of memory). To 
count the score, we need first to set C to equal zero. Add: 


5 LET C = 0 
55 LET C = C + 1 
120 PRINT "IT TOOK YOU ";C;" GUESSES" 


Run this, and see how many guesses it takes to find the com- 
puters number. You should be able to do it in less than 12. You 
may find the screen of the computer fills up before you have 
finished the game, and stops. To get round this, we can use the 
CLS command (which stands for clear screen). Add: 


52 CLS 


and run the program yet again ( | know playing this game is 
getting a little tiresome, but you are learning a lot, and this is 
the least painful way that exists to teach computer programm- 
ing). 


You'll find the computer clears the screen after every input. 


There are just too more things you can add to make the game 
a little more enjoyable. Add the following lines, then RUN it 
to see what they do. 


60 IF NOT B = A THEN PRINT "NO, "; 


B;" IS WRONG" 


67 PRINT ,"GUESS ";C (note the comma before the 


opening quote marks) 


This works quite well as it stands, but you might like to limit 


10 


- the number of guesses to 10. To do this, change line 90 to 


90 IF C < 10 THEN GOTO 50 

And add: 

95 PRINT "END OF GAME. I WAS THINKING" 
97 PRINT ,"OF ";A 


ZAP 


In this game, a kind of mini-invaders, the intruders from outer 
space approach diagonally left and right, and vertically. You'll 
see that the clever computer, a 1K ZX81, automatically 
launches а missile at the invader , and you, using "5" and "8^ 
have to guide the missile to hit the target. Ten invaders are 
launched at you, and after these, the program tells you how 
many you stopped. Once you're familiar with the game, change 
line 130 to: IF C= НАМО M = P THEN GOTO 200. 


10 LET S = 0 

20 LET M = 14 

30 FOR Z = 1 TO 10 и 

40 LET С = 20 SU 

50 LET R = INT(RND*3) Ñ ` 

60 LET P = 13 - (12 AND R = 0) + 
(12 AND R = 2) + INT(RND*5) 

70 LET РЯ = "P" +("+1" AND R = 0) 


+ ("- 1" AND R = 2) 


80 FOR H = 4 TO 21 

90 LET P = VAL РЯ 

100 LET M = M +(1 AND INKEY$ = "8") - 
(1 AND INKEY$ = "5") 


110 
120 


130 


140 
150 
160 
170 
180 
190 
200 
210 


220 
230 
240 


CLS 

PRINT AT 21, M - l;"graphic shift three 
graphic space graphic shift four";AT H, 
P - l;"graphic shift three graphic shift 
seven graphic shift four";AT C,M;"*" 

IF С = H AND M > P - 2 AND M < P + 2 
THEN GOTO 200 

LET c = Qo 

NEXT H 

CLS 

NEXT Z 

PRINT АТ 10,0;LANDED:10",,"STOPPED:";S 
STOP 

LET S - S + 1 

PRINT АТ H - l,P;"#"; TAB P - l; 
"x**".TAB p;"x*" 

LET Z = Z - 1 


LET C 20 


GOTO 170 


WIZARD-WIZ 


This game, or a plastic version of it, is marketed by Invicta 
under the trade name MASTERMIND, who bought the rights 
from an amateur mathematician Mordechai Meirovich at the 
Nurenburg toy fair a decade or so ago. It is quite a simple game, 
but one which tests your skill. The computer picks a three-digit 
code, using the numbers one to nine, without any digit 
repeated. You enter your guess for the number ( as one three- 
digit number ) then press NEWLINE. A correct digit in the 


12 


correct location will give you a “black” (an inverse digit), a 
correct digit in the wrong place will score a ‘white’. You have 
10 guesses to crack the code in WIZARD—WIZ. Do not use the 
same digit more than once in a single guess. This will fit a 1K 
2Х80, but will need more memory on a ZX81. To change it for 
the ZX81, alter the way the random number is generated in 
line 40, add INT before the brackets on the right - hand side of 
the equals sign in lines 100, 110 and 120 and do the same for 
290, 300 and 310. 


If you're not sure how to play the game, here is a short 
example. The computer has thought of 123. 


You enter: The computer replies: 
456 Nothing 

124 two blacks 

267 one white 

312 three whites 

153 two blacks 

123 three blacks and you win 
10 DIM A(3) 

20 DIM B(3) 

30 FOR Z = 1 TO 3 

40 LET A(Z) = RND(9) 

50 NEXT Z 

60 IF A(1) = A(2) OR A(1) = A(3) 


OR A(2) = A(3) THEN GOTO 30 


70 LET A = 100*A(1) + 10*A(2)+A(3) 
80 FOR C = 1 TO 10 
90 INPUT B 


100 LET B(1) = B/100 

110 LET B(2) = (B - 100*B(1))/10 

120 LET B(3) = B - 100*B(1) - 10*B(2) 
130 IF A = B THEN GOTO 360 

140 LET D = À 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
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LET N = 156 

LET W = 0 

FOR E = 1 TO 3 

IF NOT A(E) = B(E) THEN GOTO 210 
LET N = N + 1 

LET A(E) = O 

NEXT E 


FOR'F = 1 TO 3 


IF A(F) = 0 THEN GOTO 280 
FOR E = 1 TO 3 
IF NOT B(F) = A(E) THEN GOTO 270 


LET W = W + 1 
NOT AND THEN 
NEW LOAD 


NEXT E 

NEXT F 

LET A(1) = D/100 

LET A(2) = (D - 100*A(1))/10 

LET A(3) = D - 100*A(1) - 10*A(2) 


PRINT В, CHRS(N), W 

NEXT C 

PRINT ,A 

STOP 

PRINT "YOU GOT IT IN ";C 


SLALOM ғғ 


Six gates are displayed in the 1K ZX81. You are the skier, 
shown as a dot, which skies along at a fixed rate. You can move 
it up (press 7) or down (press 6) to go through the gates. If you 
miss a gate, the whole thing starts again. Finish the course, and 
a new one is set up for you to master. 


10 DIM C(6) 

20 CLS 

30 FOR A = 1 TO 6 

40 LET C(A) = INT(RND*12) + 14 
50 PLOT A*10, C(A) - 1 

60 PLOT A*10,C(A) + 2 

70 NEXT A 

80 LET V = C(1) 

90 FOR В = 7 TO 63 


100 ТЕ В/10 = INT(B/10) THEN GOTO 80 
+ (30 AND(V = C(B/10) OR V = C 
(B/10) + Xy) 

110 PLOT B,V 

120 LET X = V 

130 LET V = V + ( 1 AND ТМКЕУЯ = "7") 
“(94 AND INKEY$ = "6") 

140 UNPLOT B,X 

150 NEXT В 

160 RUN 


HEXPAWN 


This game, played on a three by three grid, is based on pawn 
moves in chess. You can move forward one square, or capture 
on the diagonal. You are the O's moving up, the computer is the 
X's moving down in this 1K ZX80 version of the game. 


The player who first finds he or she cannot move loses. The 
program as given plays a rapid, legal game, but you'll find the 
computer does not play very well. 


(ЖУАС; ххх 
456 l, “ai 
789 000 


There is still some memory left іп the 1К for you to add lines to 
improve the game, which you can do as follows: Watch each 
game carefully, and if the computer loses, work out which move 
by the computer put it into the losing position. Then, add a line 
to ensure the computer does not make that move again if the 
same situation is encountered. It is quite fascinating ‘teaching’ 
the computer in this way, and you will find that it will become 
a very good player in due course. Save the updated version so 
you don’t lose the benefit of your trials. If you would like to 
have first move (as listed the ZX80 always has first move) add: 
95 GOTO 290. You move by entering the square you're moving 
from and the square you’re moving to, then press NEWLINE. 


10 RANDOMISE 

20 DIM A(9) 

30 DIM B(3) 

40 FO A = 1 TO 9 

50 LET A(A) = - 61*(A < 4) - 27% 
(А > 3 ANDA < 7) - 52%(А > 6) 

60 МЕХТ А 

70 LET В(1) = 4 
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80 

90 

100 
110 
120 
130 
140 


150 
160 
170 
180 


190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 


LET B(2) = 2 

LET B(3) = 3 

FOR Z = 1 TO 5 

FOR B = 1 TO 2 

IF Z = 3 THEN LET B = 2 

IF Z = 4 AND B = 2 THEN GOTO 160 
IF A(Z) = 61 AND A(Z + B(B)) 


THEN GOTO 230 


NEXT 
NEXT 
LET Y 


LET Z 


LET Y 


B 


Z 


IF A(Z) 


0 


RND(6) 


Y 


THEN GOTO 


+ 1 
61 AND A(Z + B(B)) 
230 


IF Y < 15 THEN GOTO 180 


PRINT "I CONCEDE ";W 
LET A(Z + B(B)) = 61 
LET A(Z) = 27 

GOSUB 320 

INPUT АЯ 


LET А(СОРЕ(АЯ) - 28) = 27 


LET A(CODE(TLZ(AS)) - 28) = 


GOSUB 320 


52 


27 


300 INPUT Ag 

310 GOTO 100 

320 CLS 

330 PRINT 

340 PRINT 

350 FOR A = 1 TO 9 

360 PRINT CHRS(A(A)), 

370 IF 3+(A/3) = A THEN PRINT 


380 IF 3*(A/3) A THEN PRINT 


390 NEXT A 


400 RETURN 


BOMBS AWAY 


In this 1K ZX81 game, six 'houses' are shown along the bottom 
of the screen. A plane, disguised as a pixel, flies from one end 
of the screen to the other. Pressing the '6' will drop a bomb. 
You have to try and demolish a house. You have 15 shots. 


10 PRINT AT 21,15;"six of graphic shift 


A alternating with single space" 


20 LET 2= 0 (0 | 
30 LET M = 0 % 

40 LET C = 1 

50 FOR B = 10 TO 55 

60 PLOT B, 20 

70 IF M = l THEN PLOT B, 20 - С*С/14 
80 IF INKEY$ = "6" THEN LET M = 1 

90 IF M = 1 THEN LET C = C + 1 
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100 UNPLOT B, 20 - (C - 1)*(C - 1)/14 

110 UNPLOT B,20 

120 IF 20 - С%С/14 <= - 2 THEN GOSUB 150 
130 NEXT B 

140 GOTO 50 

150 LET M = Ü ожа ci» 

160 LET C = 1 

+1 


170 LET 2 
180 ТЕ Z = 16 ТНЕМ STOP 


190 RETURN 


TOURIST TRAP 


TOURIST TRAP is a 4K ZX80 “adventure” type program 
which can be easily converted (essentially by changing the way 
the random numbers are generated) for the ZX81. It is very, 
very light-hearted but is fun to play, and gives you a framework 
upon which to construct your own ADVENTURE. You might 
like to try changing this program slightly sothatitasks for, and 
uses, your name from time to time. 


1 RANDOMISE 

10 PRINT ,"TOURIST TRAP" 

20 PRINT ,"12 shift С" 

30 GOSUB 1630 

50 LET X = 0 

60 LET 5 = 30 

70 LET W = 1 

80 PRINT "HERE WE GO ON A TRIP THROUGH" 
90 PRINT ,"LONDON TOWN..." 
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100 
110 


120 
130 
135 
140 
150 
160 
170 
180 
190 
200 
220 
225 
230 
250 
270 


280 
285 
290 
300 
310 
320 
330 
350 


20 


PRINT 

PRINT "YOU HAVE $30, AND YOURE 

TRYING" 

PRINT "TO GET TO BUCKINGHAM PALACE" 
PRINT "(THE PALACE IS ON FOOTPATH 10)” 
PRINT 

PRINT "IF YOU GET THERE YOULL NEED" 
PRINT " $35 TO BRIBE YOUR WAY IN" 
PRINT 

PRINT ,,"PRESS NEWLINE" 

INPUT Ag 

IF NOT Ag - "" THEN STOP 

GOSUB 1610 

IF W < 1 AND RND(10) > 8 THEN GOTO 1730 
IF W < l THEN LET W = 1 

PRINT "twospaceTHIS IS FOOTPATH ";W 

IF W = 10 THEN GOTO 1690 

PRINT "SO YOU ARE ";CHR$(128);CHRS 
(166 - W);CHRg(128);" FROM THE PALACE" 
PRINT. 


IF 5 < 1 THEN LET S 


RND(5) 

PRINT "YOU HAVE $£";S;" IN YOUR POCKETS" 
LET X = X + 1 

PRINT 

PRINT "five shift S THIS IS PROBLEM ";X 


PRINT 


LET K 1 + RND(5) 


360 PRINT 
370 PRINT "YOURE FACING ";CHR$(128);CHRS 


(156 + K);CHR$(128);"space"; 


380 LET A = RND(4) 


390 IF A l THEN PRINT "DOORS" 

400 IF A = 2 THEN PRINT "SHOPS" 

410 IF A = 3 THEN PRINT "PEDESTRIAN",, 
"CROSSINGS" 

420 IF A = 4 THEN PRINT "TUBE STATION",, 
"ENTRANCES" 

450 PRINT 

460 PRINT "WHICH ONE WILL YOU USE?" 


470 INPUT B 
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475 IF B > K OR B < 1 THEN GOTO 470 

480 GOSUB 1610 

500 IF RND(10) < 4 OR B = A THEN GOSUB 
1170 

530 LET C = RND(4) 

540 IF C = 1 THEN PRINT "FOOL"; 

550 IF C = 2 THEN PRINT "IDIOT"; 

560 IF C = 3 THEN PRINT "HELP"; 


570 IF C 


4 THEN PRINT "SURPRISE"; 

620 PRINT "YOURE FACE TO FACE",, 
"WITH A "; 

630 LET A = RND(7) 


640 IF THEN PRINT "GREEN "; 


ТНЕМ PRINT "BLUE "2 


А 
650 IF A = 
A 


660 IF THEN PRINT "BRIGHT RED "; 


м O0 хл A 


670 IF À = THEN PRINT "SICKLY 
YELLOW  "; 


680 LET A = RND(5) 


690 IF A = 1 THEN LET Bg = "SMILING 
POLICEMAN" 

700 IF A = 2 THEN LET B$ = "BEWILDERED 
TOURIST" 

710 IF A = 3 THEN LET ВЯ = "TICKET 
INSPECTOR" 

720 IF A = 4 THEN LET Bg = "PARKING 


WARDEN" 


730 IF A = 5 THEN LET B$ 


l 


"BUS DRIVER" 
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740 
750 


810 


820 


830 


840 


850 


860 


900 


910 


920 


930 


940 
950 


LET A = RND(7) 
IF A = l THEN LET 


TICKET" 
IF A = 2 THEN LET 
TOWER" 
IF A = 3 THEN LET 


TRAFALGAR SQUARE" 
IF A = 4 THEN LET 
CAMBRIDGE" 

IF A = 5 THEN LET 
A STICK" 

IF A = 6 THEN LET 
AND CHIPS" 

IF A = 7 THEN LET 
AT OXFORD CIRCUS" 
PRINT B$," WITH A" 
PRINT C$ 

PRINT 

PRINT "HOW DO YOU 


PRINT 


C$ = "PARKING 

Cg - "PASS TO THE 
C$ - "POSTCARD OF 
C$ = "MAP OF 

CZ = "MONKEY ON 

C$ - "PACK OF FISH 
C$ - "RINGSIDE SEAT 
КЕАСТ?" 


PRINT"SPIT(1)","SWEAR(2)","SCREAM 


FOR HELP(3)",,"POKE AT IT WITH A 


STICK(4)" ,"SAY YOU DONT SPEAK ENGLISH 


(5)","SAY YOU ARE 


A STRANGER IN TOWN 


(6)nospaceBOOK A FLIGHT TO PARIS(7)", 


"HAIL A CAB(8)",,, 


"BUY A RIOT SHIELD 


(9)",,"POINT THE OTHER WAY(10)?" 
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1000 INPUT A 

1005 IF A > 10 OR A < 1 THEN GOTO 1000 
1010 LET B = RND(10) 

1020 GOSUB 1610 

1030 IF RND(5) = 1 OR A < B THEN LET А = B 
1040 IF A 


lI 


B THEN PRINT "YOU FOOLED 
THE ";Bg 


1050 IF A'- B THEN LET S S * RND(10) 


1060 LEA 
g" is 
1070 IF A 


B THEN PRINT "AND NOW HAVE 


B THEN LET W 


ll 


W + RND(4) 

1080 IF W > 10 THEN LET W = 10 

1090 PRINT 

1100 IF NOT A = B THEN PRINT "THE ";В8; 
" OUTWITTED" ,"yOU" 

1120 IF NOT A = B THEN LET S = S - RND(5) 

1130 IF W < 10 THEN PRINT "YOU ARE CLOSE 
TO",,"FOOTPATH ";CHRS(128);CHRS(156 + W 
CHR£(128) 

1140 GOTO 160 

1170 LET A - RND(4) 

1) - 1340*(A = 2) 


1180 GOSUB -1240*(A 
= 1380*(A = 3) 


1510*(A = 4) 

1190 GOTO 160 

1240 PRINT ,"YOUVE FALLEN DOWN" 

1250 LET B = RND(4) 

1260 IF B = 1 THEN PRINT " IN FRONT OF 


BIG BEN" 
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1270 
1280 


1290 


1310 
1320 
1330 
1340 


1350 
1360 


1370 
1380 
1390 
1400 
1410 


1420 


IF B 2 THEN PRINT 


l 


IF B 3 THEN PRINT 


ai IN THE STRAND" 


"IN FRONT OF THE 


TRAFFIC","IN PICCADILLY CIRCUS" 


IF B = 


TO THE THAMES" 


LET W = W - 1 

LET 5 = S - RND(2) 
RETURN 

PRINT "fivespaceYOU 


ON A","fivespaceNo. 
WITHOUT A TICKET" 


LET W = W - 1 


LET S = S RND(2) 


RETURN 

PRINT ,"YOU GAIN A" 
LET D = RND(6) 

IF D = 1 THEN PRINT 
IF D = 2 THEN PRINT 
PLANETARIUM" 

IF D = 3 THEN PRINT 


COVENT GARDEN" 


4 THEN PRINT RND(99);" 


STEPS 


ARE CAUGHT RIDING 


BUS 


"#RND(99);" 


Cathar 


."STALE SALAD ROLL" 
"TICKET TO THE 


"GOOD SEAT AT 
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1430 IF D = 4 THEN PRINT "TUBE TICKET TO 


SHEPHERDS" ,"BUSH" 


1440 IF D 5 THEN PRINT "SEAT UPSTAIRS 
ON A ";RND(99);" BUS" 


1450 IF D 6 THEN PRINT "BLACK EYE FROM 


A RUDE LOCAL" 
1470 LET S = S + RND(5) 
1480 LET W = W + RND(3) 
1490 IF W > 10 THEN LET W = 10 
1500 RETURN 
1510 PRINT "YOU FIND A MAP OF LONDON” 
1520 PRINT 
1530 PRINT 
1540 PRINT "CHOOSE YOUR BONUS (UP TO 85)" 
1550 INPUT À 
1570 LET S = 
1J580 LET W 


л 


- А*(А < 6) 
- A/2 


" 
= 


1590 RETURN 

1610 CLS 

1615 FOR M = 1 TO 25*RND(5) 

1620 NEXT M 

1630 FOR M = 1 TO 5 

1640 PRINT 

J650 NEXT M 

1660 RETURN 

1690 PRINT "YOU ARE AT THE PALACE GATE" 
1700 PRINT "DO YOU HAVE $35 TO BRIBE YOUR" 
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1710 PRINT "WAY IN? PRESS N/L TO FIND OUT" 

1720  INPUT Ag 

1730 GOSUB 1610 

1740 IF S < 35 AND W > 5 THEN PRINT "YOU 
HAD ONLY #";5;" SO YOUVE","BEEN 
DEPORTED. 

1745 IF W < l THEN PRINT "YOUVE FAILED AS 
A TOURIST...AND BEEN BEHEADED..."; 

1750 IF S < 35 THEN GOTO 1740 

1760 PRINT "YES, YOU HAVE g" 5 

1770 PRINT "THE RED CARPET AWAITS YOU..."; 

1780 RUN 1770 


MOVING 
GRAPHICS 


The 2X81 display is not memory-mapped, so many methods of 
producing moving graphics with other computers will not work 
on the ZX81. 


You can POKE into the display file of any computer which uses 
a visual display unit (as opposed to a teleprinter) as an output 
device. Most computers have a fixed block of memory ded- 
icated to the screen, so you know - - for example - - that on the 
MZ80K that address 53248 refers to the top left - hand corner 
of the screen, and 54247 is the final address on the screen in the 
bottom right - hand corner. 


The problem is complicated on the ZX81 (and the ZX80) 


because the display file is not fixed, it 'floats' on top of the 
memory being used for the system variables and the program. A 
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routine can be used to find the first address on the screen, but 
fortunately for us, Sinclair Research have added a routine to the 
ROM which does the work, and automatically locates the 
correct screen position, regardless of the length of program you 
have entered. The PRINT AT function is really POKEing to the 
display file, via the ROM. 


It is very simple to use. The line PRINT AT 6, 6; “SPLODGE” 
would put the word SPLODGE up in the top left - hand corner 
of the screen, and PRINT AT 10, 14; “SPLODGE” would 
position it somewhere near the middle of the display. The first 
co-ordinate after the AT is the Y, or up/down co-ordinate, 
counting the top of the screen as zero. The second co-ordinate 
is the X, across/back co-ordinate, and zero is on the left - hand 
side. 


So, to make an object move diagonally, you simply need to add 
one to each co-ordinate each time you go through a loop - - - or 
do you? 


Enter and run the following on your ZX81 : 


10 LET Y = 0 

20 LET X = Y 

30 PRINT AT Y,X;"inverse space” 
40 LET Y = Y + 1 

50 LET X = X + l 

60 IF Y < 20 THEN GOTO 25 

70 CLS 

80 RUN 


This will give you a rapidly descending series of black steps, but 
because each printed black square stays in place, it does not 
look like a single object moving down the screen. To do this, 
you have to 'unprint' the square. 


The best way to create the appearance of an animated display 


is to use a second set of variables to ‘remember’ the position 
of the object you're moving, so that these second variables can 


28 


be used to unprint at the last possible moment, so the object 

is not invisible while the computer is working out where to 

move it to. |"! show you what | mean. Add the following 

lines, and run the program again : 

15 LET A 

17 LET B = 
A 


35 LET 


KOKO қ м 


37 LET B = 
25 PRINT AT A,B;"single space" 


Run this, and you'll, see a little square moving fairly smoothly 
down the screen. If you want to slow it down a little, add 
55 LET K = RND*RND, and after running this for a while, 
change the multiplication sign (*) to an exponention (**) to 
see it slow to a bumpy crawl. 


wa 
ет 
Gs 
= 
= 
та 
кз 
кы 
кы 
ЕЗ 


т ттн 
И 


Now, this is not very dramatic, but it shows the basis on which 
any moving display can be created. Before we move onto a 
proper program which uses this, make the following changes 
to the program, and run it again. 


40 LET Y = Y + RND 
50 LET X = X + RND 
Delete line 55 


The square will still make it's way down the screen, but will 
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do so far more erratically than before. To make it move in an 
even more drunken manner, change line 10 to LET Y = 10 and 
add minus RND to the ends of lines 40 and 50. If you like, you 
can leave it bopping around indefinitely. 


Once you're tired of this single blob, add a semi-colon, then TAB 
4 semi-colon then a single space inside quote marks to line 25, 
and do much the same, except put an inverse space in place of 
the ordinary space, at the end of line 30. Then you'll have two 
black blobs doing a rather poor minuet, and not (as you may 
imagine) simply moving in unison. it can be quite entertaining, 
rather like two bar magnets courting. 


But now, to a 'real' program to show moving graphics on the 
'81. Enter and run the next program, PESTICIDE. In this 
you, a fearsome black blob, are trying to crush an innocent 
little fly (an asterisk) which flits about the screen at random. 


You move the flyswat blob by using the keys, 5, 6, 7 and 8 - - 
and your blob moves in the direction of the arrows on those 
keys. Although the fly does not know where you are, and has 
no built - in strategy to escape from you, you'll be surprised 
at how often it does seem to evade you. 


When you finally manage to hit it, a score will appear on the 
screen. The lower this score, the better. I’ve rarely managed 
better than 45. I'm sure you'll surpass that. 


Note that lines 110 and 130 keep the fly within the boundaries 
of the screen. If the condition within the brackets is true, the 
ZX81 produces a one, and produces a zero if the condition 
is false. Run the program, then re-examine the listing, and re- 
read these notes, and you're sure to gain a greater insight into 
how it works. 


10 LET P = 5 

20 LET D = P - P 
30 LET Z = P/P 
40 LET M = Z 

50 LET Y = Z 

60 LET N = Z 

70 LET A = 20 

80 LET Q = À 


30 


90 LET B A 
100 LET W = A 
110 LET Y = Y - P*RND(Y >6)+ 
P*RND(Y < 14) 
120 LET D = D + Z 
x 


130 LET X = - P*RND* (X>6) 
+ P*RND(X<26) 

140 PRINT AT M,N;"single space” 

150 PRINT AT Y,X;"*" 

160 LET N = X 

170 LET M = Y 

180 IF ABS(A - Y) < .5 AND ABS 
(B - X) «.5 THEN GOTO 260 


190 LET B = B -(INKEY$ = "5") 
+ (INKEY$ = "8") 

200 LET A = A + (INKEY$ = "6") 
- (INKEYg = "7") 


210 PRINT AT W,Q;"single space” 
220 PRINT AT A,B;"inverse space" 
230 LET W = À 

240 LET Q = B 

250 GOTO 110 

260 PRINT ,D 


Note the way the logic we used in lines 110 and 130 to keep the 
fly within the confines of the screen, is also used in lines 190 
200 to determine the reaction to the INKEYS. 


Our second program SPEEDWAY puts you in charge of a racing 
car (which looks like an inverse H) steaming down a randomly 
twisting road made up of the graphic on key H, with a border 
of inverse spaces. The game will continue to run so long as you 
do not hit the border. The variable P counts how long: you 
remain at the wheel. The complex - looking line 150 looks up 
the PRINT position (set by the previous line) in the display file. 
If it finds a black blob there, it knows your car has hit the 
border, and the action is sent to line 200, where your score is 
PRINTed. If it does not find a black blob, the program returns 
to line 90 to print the next section of the road. Notice how 
SCROLL is used in this program to create the ‘movement’ and 
the car is unprinted each time through the program after it has 
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160 
170 
180 


190 
200 


LET A = 5 

LET J = A/A 
LET S = A + A 
POKE 16418, A 
LET K = S + PI 
LET N = S 

LET D K 

LET P J 

SCROLL 

PRINT TAB D;"one inverse space 
three ‘graphic on Н key one 
inverse space" 

ТЕТ D = D + RND*2* (NOT р>18) - 
RND*2*(NOT D <6) 

PRINT AT S - J,N;"graphic 

from H key" 

PRINT AT S,K;"inverse H" 

PRINT AT S * J,K; 

IF PEEK(PEEK 16398 + 256* 

PEEK 16399) = 128 THEN 

GOTO 200 

LET N = K 
LET P P + 1 
LET К = К + (ТМКЕУЯ = "8") 
- (INKEYg = "5") 

GOTO 90 

PRINT P 


EPSOM DOWNS 


It is not so easy to emulate moving graphics on а ZX80, but here 
are a few programs which should give you some ideas to follow. 


This program features a horse race with six horses. You need to 
press NEWLINE repeatedly to get the tiny horses to run. 


At the end of the race, the ZX80 sorts the results into order, 
and awards numbers from first to last. It can even cope with 
double or triple heats. The data sort, which starts at line 300, 
can easily be taken from this program and used as a stand- 


alone sort program. This race game fits a IK 2Х80. 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
300 
310 
320 
330 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


RANDOMISE 

DIM A(6) 

DIM W(6) 

LET K = Q 

LET Z = 157 

LET M = 128 

CLS 

FOR B = 0 TO 5 

LET A(B) = A(B) + RND(3) - 
FOR C = 1 TO ABS(28 - A(B) 
PRINT " "; (single space) 
NEXT C 

PRINT CHRS(M);CHRS(B + Z); 
CHR (M) 

PRINT 


IF A(B) > 24 THEN LET K = 
NEXT B 

IF K = 1 THEN GOTO 200 
INPUT Ag 

IF Ag = "" THEN GOTO 70 
PRINT 

FOR G = 0 TO 5 

LET W(G) = A(G) 

NEXT G 

FOR B = 0 TO 4 

LET F = 0 

FOR D 0 TO 5 - B 

IF NOT A(D) < A(D + 1) 
THEN GOTO 380 

LET E = A(D) 

LET A(D) = A(D + 1) 


LET A(D + 1) = E 
LET F = 1 
NEXT D 


IF F = Q THEN GOTO 410 
NEXT B 

FOR D = 0 TO 5 

FOR R = 0 TO 5 

IF W(R) = 0 THEN GOTO 470 


) 


1 
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440 IF W(R) = A(D) THEN PRINT 
‚СНЕ (M) ;CHRg (D + Z);CHRS(M); 
"- "СНЕ (М); СНЕ (Е + 2); 


CHR2(M);" ";W(R) 
450 IF W(R) = A(D) THEN LET 
W(R) = O 


460 NEXT R 
470 NEXT D 


MICROMOUSE 


This program, which demands a 4k ZX80, shows an intelligent 
(?) mouse finding its way towards the bottom right hand corner 
of the screen, avoiding obstacles, and leaving a trail of fullstops. 
It is fascinating to watch, as the obstacles are different each 
time, and although the marked lack of brightness on the part of 
the mouse may make you angry, the high score you'll get on 
most games will more than compensate. 


This program illustrates POKEing into the display file most 


effectively. № makes its decisions by PEEKing the squares all 
around its location. 
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Ñ F 0 A w K 


S © 


30 
40 
50 
60 


70 
75 
80 
90 
100 
110 
120 
130 
132 
135 
137 


140 
145 
147 


0 
LET Z = 13396 


LET V 


LET T Z + 1 
PRINT "32 shift A" 


FOR A = 1 TO 19 


PRINT "shift A seven spaces",, 


"seven spaces shift A" 

NEXT A 

PRINT "32 shift A" 

FOR R = 1 TO 40 

POKE RND(18)*33 + 3 + RND(26) 


PEEK(Z) * 256*PEEK(T), 128 


NEXT R 
LET X = RND(3) + 3 
LET Y = RND(3) + 3 
LET Q = Y 

LET W = X 

LET Y = Q 

LET X = W 

LET V = V + 1 


IF V = 200 THEN GOTO 250 
LET M = 2 - RND(3) 

IF NOT M = 1 AND RND(2) = 1 
THEN GOTO 135 

LET Y = Y + M 

LET N = 2 - RND(3) 

LET X = X + N 


+ 
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150 LET K = PEEK(33*Y + X + 1 + 
PEEK(Z) + 256*PEEK(T)) 

156 IF NOT K = 0 THEN GOTO 110 

157 POKE 33*Y + X + l + PEEK(Z) + 
256*PEEK(T), 50 

158 РОКЕ 33*Q + W + l + PEEK(Z) + 
256*PEEK(T), 27 

159 LET Q = Y 

160 LET W = X 

170 IF X - 30 AND Y = 19 THEN GOTO 220 

200 INPUT 09 

210 GoTo 135 

220 PRINT "MADE IT. YOUR TIME WAS ";V 

230 PRINT "YOUR SCORE IS ';3000 - 
(6 * RND(3))*V 

240 STOP 

250 PRINT "IM TRAPPED. I GIVE UP" 


BALL 


This little routine, for a ZX80, shows one way of getting an 
approximation to moving graphics using the ТЕЗ function. 


10 LET Ag = "twentu spaces O” 
20 FOR J = 1 TO 16 
30 FOR D = 1 TO 16 - J 


40 PRINT 
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50 NEXT D 


60 ТЕТ АЗ = TL£(Ag) 

70 PRINT АЗ 

80 ТМРИТ 08 

90 IF МОТ 08 = "" THEN STOP 


100 CLS 
110 NEXT J 
120 RUN 


ALPHA 


— 
In this program, the computer thinks of a letter of the alphabet 
and you have to guess it. Demanding stuff, isn't it? 


10 RANDOMISE 

20 LET D = O 

30 LET C = 1 

40 LET A = 37 + RND(26) 

50 PRINT "I AM THINKING OF A LETTER" 
60 PRINT 

70 PRINT "ENTER YOUR GUESS ";C 

80 INPUT АЗ 

90 IF АЗ = "" THEN GOTO 80 

100 CLS 

110 IF CODE(A$) = A THEN GOTO 190 

120 PRINT , Ag 

130 PRINT "TRY CLOSER TO THE "; 
140 IF CODE(A$) <A THEN PRINT "END" 
150 IF CODE(AS) >A THEN PRINT "START" 
160 PRINT "OF THE ALPHABET" 

170 LET C = C + 1 

180 GOTO 60 
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190 PRINT "YES, I WAS THINKING 
OF ";АЗ 

200 PRINT 

210 PRINT "THAT TOOK ";C;" GUESSES" 

220 PRINT 

230 IF С<р OR D=O THEN LET D-C 

240 PRINT "YOUR BEST SCORE THIS 
GAME IS ";D 

250 INPUT A£ 

260 PRINT, 

270 GOTO 30 


To change this 1K ZX80 program for the ZX81, add: 


40 LET A = 38 + INT(RND*26) 
80 IF INKEY$ <> "" THEN GOTO 80 
85 IF INKEY$ = "" THEN GOTO 85 


90 LET A$ - INKEYÉ 


Line 80 waits for you to lift your finger off the keyboard, and 
line 85 waits for you to press a new key. 


LOCK-JAW 


The numbers one to eight, plus zero, appear in a random order. 
Beside these are the numbers one to nine, in inverse. Your job 
is to get the numbers in order, zero to eight. You can only move 
by sliding into an adjacent zero, or by jumping over one number 
into a zero. 


You move by entering the two numbers you wish to swap, as 
one string, then press NEWLINE. When you get them in order, 
enter “E” and the ZX81 will tell you how long you took to 
sort them. 


10 LET Z = 1 
20 LET M = 9 
30 DIM A(M) 
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40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


140 
150 
160 
170 
180 
190 


200 
210 
220 
230 
240 
250 


LET С 2 


II 
N 
I 


FOR A = Z TO M 
LET A(A) = INT(RND*M) 

IF A = Z THEN GOTO 110 

FOR B = Z TO A - Z 

IF A(A) = A(B) THEN GOTO 60 
NEXT B 

NEXT A 

FOR A = Z TO M 

PRINT AT 2*A,PI;CHRS(A + 156); 
" "ZA(A) 

NEXT A 

INPUT Ag 

IF Ag = "E" THEN GOTO 250 
LET C = C + Z 


LET X CODE(Ag) - 28 


LET Y 


PRINT X,Y 
LET E = A(X) 
LET A(X) = A(Y) 
LET A(Y) - E 
GOTO 120 

PRINT ,C 


CODE(AZ)(Z + Z TO) - 28 
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LEAP YEAR FROG 


This game is similar to LOCK—JAW, except that instead of sort- 
ing numbers into order, you get two sets of graphic symbols, 
which are separated by a space, swapped over. You'll see a 
number beside each symbol. You swap two symbols by enter- 
ing their numbers as a two-digit number, then pressing NEW— 
LINE. As in LOCK—JAW , you can only slide into a black 
space or jump over a piece into the blank space. This program 
fits a 1K ZX81, and like LOCK—JAW, tells you how well you 
did at the end. The program will know when you have suc- 
ceeded. 


10 LET 2 = 1 

20 LET X = Z - Z 

30 LET M = 9 

40 DIM A(M) 

50 FOR A = Z TO M 

60 IF A < 5 THEN LET A(A) = 

70 IF A > 5 THEN LET A(A) = M - 2 
80 NEXT À 

90 LET C = Z - 2 


100 PRINT AT 0,0; 

110 FOR A = Z TO M 

120 PRINT ,A;"two spaces";CHR$ A(A) 

130 PRINT 

140 IF A < 5 AND A(A) = M- Z OR À > 5 
AND A(A) = 6 THEN LET С = С + Z 

150 NEXT À 

160 IF C = М - Z THEN GOTO 260 


170 PRINT "GO ";X."CORRECT ";C 
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180 INPUT J£ 

190 LET X = X + Z 

200 LET J = CODE(J$) - 28 

210 ТЕТ К = СОрЕ(7#) (2+2 TO) - 28 
220 LET E = A(J) 

230 LET A(J) = A(K) 

240 LET A(K) = E 

250 GOTO 90 

260 PRINT "YOU GOT IT IN ";X 


DRAUGHTS 


This is a full game of draughts for the 4K ZX80. A complete 
board is shown. You are at the bottom of the screen playing up, 
and the ZX80 is playing down. You enter each move as a 
LETTER NUMBER, then NEWLINE, of the square you're 
moving from, then LETTER NUMBER, then NEWLINE, of the 
square you're moving to. You'll understand this easily once you 
see the display. You'll find the ZX80 plays like a reasonable 
beginner. Once you've played with it for a while, you might 
enjoy trying to improve its standard of play. 


Although the computer has no strategy as such (other than 
look for a capture, and if it can't make one, look for a legal 
move) you'll find it plays as though it had a real method of 
looking ahead at the game and where it is developing. Kings 
are made automatically. 
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5 

6 

21 
22 
23 
24 
25 
26 
39 
40 


(in 
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42 


43 


42 


GOTO 9000 
FOR Z = 6 TO 40 


IF Z > 37 AND A(Z) = 1 THEN LET 
A(Z) = 2 

IF Z < 10 AND A(Z) = - l THEN 
LET A(Z) = - 2 


IF P > f THEN LET SI = SI + l 
LET P = g 


IF A(Z) = - 2 THEN LET A(Z) = 188 
IF A(Z) = -1 THEN LET A(Z) = 180 
IF A(Z) = g THEN LET A(Z) = 128 
IF A(Z) = l THEN LET A(Z) = 189 
IF A(Z) = 2 THEN LET A(Z) = 186 
NEXT Z 

PRINT ," ABCDEFGH" 


PRINT "2Х80 ";SI;"eight shift A" 


the next section, @ equals shift A) 


PRINT ," 18 ";CHRS(A(40));" "; CHRS 
(A(39));" ";CHRÉ(A(38));" ";CHRS 
(А(37));"Ө" 

PRINT ," 2O";CHRS(A(36));" ";CHR$ 
(A(35));" ";CHRS(A(34));" ";CHRS 
(A(33))" @” 

PRINT ," 3@ ";CHRS(A(31));" ";CHR$ 


(A(30));" ";CHR£(A(29));" "CHR$ 
(A(29));" ";CHR$(A(28));"8" 
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45 


46 


47 


48 


49 
50 
51 
52 
53 
54 
55 
56 


58 
59 
60 


PRINT ," 4Q"; CHRS(A(27));" ";СНЕ# 
(A(26));" ";CHRS(A(25));" ";CHR$ 
(A(24));" Q" 

PRINT ," 50 ";CHRS(A(22));" "CHRY 
(A(21));" ";CHRZ(A(20));" ";CHR8 
(A(19));"Q" 

PRINT ," 60";CHR£(A(18));" ";CHR$ 
(A(17));" ";CHR2(A(16));" ";CHR$ 
(A(15));" Q" 

PRINT ," 70 ";CHRS(A(13));" ";CHRS 
(A(12));" ";CHRZ(A(11));" ";CHRS 
(A(10));"Q" 

PRINT ," 8@";CHRS(A(9));" ";CHRS 
(A(8));" ";CHR$(A(7));" ";CHRS(A(6)); 
m а" 

PRINT "HUMAN  ";SI;" @@@@@@@a" 
FOR Z = 6 TO 40 

IF A(Z) = 188 THEN LET A(Z) = - 2 
IF A(Z) = 180 THEN LET A(Z) = - 1 
IF A(Z) = 128 THEN LET A(Z) = f 

IF A(Z) = 189 THEN LET A(Z) = 1 

IF A(Z) = 186 THEN LET A(Z) = 2 
NEXT Z © 
IF SI = 12 THEN PRINT "I WIN" 

IF SM = 12 THEN PRINT "YOU WIN" 

IF SM = 12 OR SI = 12 THEN STOP 
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68 


69 
70 
71 
74 
79 
77 
78 


80 
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PRINT "LAST TO 


NUM. "; 
INPUT C$ 
PRINT C$;" 
INPUT Bg 
LET F$ = B 


FOR W = 1 


IF W = l THEN LET D$ 


IF W = 2 THEN LET рӯ 


LET D = - 

"ре: je 
= "H1”) - 
= "C2") - 
= "g2") - 
= "p3"”) - 
= "H3") - 
= "C4") - 
= "g4") - 
= "p5") - 
= "Н5") - 
= "C6") - 
= "G6") - 
= "p7") - 
= "H7") = 
= "C8") - 
= "G8") 


TO? 


Ӯ 
то 2 


40*(D$ 
38*(D$ 
36* (рӯ 
34* (D$ 
31* (Dg 
29* (DZ 
27* (D8 
25* (28 
22* (Dg 
20* (D$ 
18%(р% 
l6+(D8 
13* (Dg 


11* (Dg = 


9* (рӯ 
7* (DE 


"m 


с; 
B# 


"в1") 
"Е1") 
"А2".) 
"Е2") 
"B3") 
"ЕЗ") 
"А4") 
"Е4") 
"B5") 
"Е5") 
"A6") 
"E6") 
"В7") 
"Е7") 

"А8") 

"ЕВ" ) 


";F8;" FROM? (LET. 


39* (D$ 
37* (Dg 
35* (D$ 
33* (Dg 
30* (D$ 
28* (Dg 
26* (D8 
24* (D$ 
21*(D$ 
19*(D$ 
17*(D$ 
15* (28 
12* (Dg 
10* (D# 

8* (рӯ 

6* (28 


90 
95 
100 


103 


142 
146 
147 
148 
150 
160 
165 


170 


180 


1990 
1995 
2000 
2005 
2010 


2012 


IF W = 1 THEN LET C = 
IF W = 2 THEN LET B = 
NEXT W 


IF ABS(C - B) 10 OR ABS(C - B) 


8 THEN LET SM 


SM + 1 
IF В - C = 10 THEN LET A(B - 5) = f 


IF B - C = 8 THEN LET A(B - 4) = g 
ТЕ C - B = 10 THEN LET A(C - 5) = fg 
ТЕ C - B = 8 THEN LET A(C - 4) =Ø 
LET A(B) = A(C) kai 
LET A(C) = f ea 
LET Ug = "" 
CLEAR 

LLLI. 

IF ABS(C - - 10 OR ABS(C -B) 


= 8 THEN PRINT "MULTI-JUMP?" 
IF ABS(C - B) = 10 OR ABS(C - B) 
8 THEN INPUT 08 
CLS 
IF Ug > "" THEN GOTO 2 
FOR Z = 6 TO 40 
IF Z < 9 THEN GOTO 2015 
IF A(Z) < O AND (A(Z - 4) = 1 
OR A(Z - 4) = 2) AND A(Z - 8) 
= 0 THEN GOTO 4090 
IF Z < 11 THEN GOTO 2015 


45 


2014 


2015 
2016 


2017 


2020 


IF А(2) < 0 AND (A(Z - 5) = 1 
OR A(Z - 5) = 2) AND A(Z - 10) 
= 0 THEN GOTO 4200 

IF Z » 25 THEN GOTO 2020 

IF A(Z) = - 2 OR (A(Z + 4) = 1 
OR A(Z + 4) = 2) AND A(Z + 8) = 
0 THEN GOTO 4300 

IF A(Z) = - 2 AND (A(Z + 5) = 1 
OR A(Z + 5) 


2) AND A(Z + 10) 
= 0 THEN GOTO 4400 


NEXT Z 


RANDOM MOVE INTELLIGENT 


4005 
4007 
4010 
4012 
4015 
4016 
4020 


4026 


4029 


4035 
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LET KK = 0 


LET U 0 


LET Z 6 + RND(35) 
LET K = 0 
IF U > 199 THEN LET KK = KK + 1 


LET U = U + 1 


IF A(Z) < 0 AND A(Z - 4) = 0 
THEN LET K = 1 
IF A(Z) < 0 AND A(Z - 5) = 0 


AND K = 0 THEN LET K = 2 

IF K = 0 AND Z < 26 AND А(2) = 
- 2 AND A(Z + 4) = 0 THEN 

LET K = - 7 

IF Z < 10 THEN GOTO 4040 


4038 IF K = 1 AND U < 200 AND A(Z 
- 10) = 1 THEN GOTO 4010 


4039 IF К = 2 AND U < 200 AND A(Z - 10) 
= 1 THEN GOTO 4010 
4045 IF K = 0 AND KK < 350 THEN GOTO 4010 
4050 IF K = 0 THEN LET SM = 12 
4051 IF K = 0 THEN GOTO 2 


4072 ТЕТ A(Z - (3 + K))= A(z) о 
4073 LET A(Z) = O 4 
4077 GOTO 2 SAVE 
4092 LET A(Z - 8) = A(Z) Е М 
4095 LET A(Z) = 0 


4100 LET A(Z - 4) = 0 

4105 LET SI = SI + 1 

4107 IF Z < 24 THEN GOTO 2 

4110 IF (A(Z - 13) = 1 OR A(Z - 13)= 
2 ) AND A(Z - 18) = 0 THEN LET 
P £e] 

4115 IF (A(Z - 12) - 1 OR A(Z - 12) - 
2) AND A(Z - 18) = 0 THEN LET P 


4120 IF Р = 1 THEN LET A(Z - 18) 


А(2 - 8) 
4130 IF P = 1 THEN LET A(Z - 13) = 0 
4140 IF Р = 2 THEN LET A(Z - l6) - 
A(Z - 8) 
4150 IF P = 2 THEN LET А(2 - 12) = O 
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4160 
4170 
4200 
4205 
4210 
4212 
4215 
4220 


4230 


4240 


4250 


4260 
4270 


4280 
4290 
4300 
4310 
4320 
4330 
4340 


48 


IF P > 0 THEN LET A(Z - 8) 


| 
© 


сото 2 

LET A(Z - 10) = A(Z) 

LET A(Z) = 0 

LET A(Z - 5) = O 

LET SI = SI + 1 

IF Z < 25 THEN GOTO 2 

IF (A(Z - 15) = 1 OR A(Z - 15) 


= 2) AND A(Z 20) = 0 THEN LET 
P = 1 


IF(A(Z - 14) 1 OR A(Z - 14) 


= 2) AND A(Z 


18) = 0 THEN 
LET P = 2 


IF Р = l THEN LET A(Z - 15) = 0 
IF P = 1 THEN LET A(Z - 20) 

= A(Z - 10) 

IF P = 2 THEN LET А(2 - 14) = 0 
IF P = 2 THEN LET A(Z - 18) 

= A(Z - 10) 

IF P > 0 THEN LET A(Z - 10) = O 
GoTO 2 

LET A(Z + 8) = - 2 

LET A(Z + 4) = 0 

LET A(Z) = 0 

LET SI = SI +1 

IF z < 32 AND (A(Z + 3) = 1 OR 


A(Z + 3) = 2) AND A(Z - 2) 


И 
© 


THEN LET P = 1 


4350 


4360 


4365 
4367 
4370 
4375 
4380 
4385 
4390 
4395 
4405 
4410 
4420 
4425 
4430 
9000 
9005 
9010 
9020 


IF Z < 23 AND (A(Z + 14) = 1 OR 
A(Z + 14) = 2) AND A(Z + 16) = 
0 THEN LET P = 2 

IF Z < 23 AND (A(Z + 13) = 1 OR 


A(Z + 13) = 2) AND A(Z + 18) 
O THEN LET P = 3 


IF P = ] THEN LET A(Z + 3) = 0 

IF P = ] THEN LET A(Z - 2) = - 2 
IF P = 2 THEN LET A(Z + 14) = O 
IF P = 2 THEN LET A(Z + 16) = - 2 
IF P = 3 THEN LET A(Z + 13) = O 
IF P = 3 THEN LET A(Z + 18) = - 2 
IF P > 0 THEN LET A(Z + 8) = O 


GOTO 2 
LET A(Z + 10) = - 2 


H 
o 


< 
LET A(Z + 5) Bo 
LET A(Z) = 0 5 — 
LET SI = SI + 1 

OR GOTO 

GOTO 2 
DIM A(45) 
FOR Z = 1 TO 45 кышы 
IF Z < 6 THEN LET A(2) = 9 
IF Z > 5 AND Z < 19 THEN LET 
A(Z) = 1 


9030 IF Z > 18 AND Z < 28 THEN 
LET A(Z) = O 

9040 IF Z > 27 AND Z < 41 THEN LET 
А(2) = - 1 


б 


9050 IF Z > 40 THEN LET А(2) = 9 
9060 МЕХТ 2 


9070 LET А(14) = 9 
9080 LET 4(23) = 9 
9090 LET А(32) = 9 


9095 LET Ug = "" 
9100 LET P = 0 
9110 LET Fg = "cono" 
9120 RANDOMISE 


9130 LET SI 0 


9140 LET SM 


0 

9150 PRINT "DO YOU WANT FIRST MOVE? 
(Y OR N)" 

9160 INPUT 98 

9170  CLS 

9180 IF NOT Jg - "Y" THEN GOTO 2000 

9190 GOTO 2 


50 


SNAFFLED 


The computer thinks of a letter of the alphabet (except A and 
Z) and you have to “snaffle” it by entering the letters which are 
on either side of it. You enter your two letters at once, before 
hitting NEWLINE, the computer will print out SNAFFLED if 
its letter lies between your two. It is best to start with, say, A 
and K to see which end of the alphabet the secret letter lies, and 
then 'home in' on it. This will fit a 1K ZX81. 


10 LET E - 100 

20 LET Z - PI/PI 

30 LET D = Z - Z 

40 LET A = 39 + INT(RND*25) 

50 INPUT Bg (your guess) 

60 LET B = CODE B$ 

70 LET D = D + Z 

90 SCROLL 

100 PRINT "TRY ";D , CHR$ B;" "; 
CHR$ C 


110 SCROLL 


51 


120 IF A = B - Z AND A = C + Z OR 
А = В + Z AND A = С - 1 THEN 
GOTO 150 

130 IF B < A AND C > A OR B > A AND 
C «SA THEN PRINT "BRACKETED" 

140 GOTO 90 

150 PRINT "YES, IT WAS ':CHR$ A 

160 SCROLL 

170 PRINT "YOU GOT IT IN ";D 

180 IF D « E THEN LET E = D 

190 SCROLL 

200 PRINT "BEST ";E 

210 PAUSE 100 

220 GOTO 30 


SHIMMER-SHINE 


This routine produces ever-changing balanced pictures on a 1K 
ZX81. Enter RANDOMISE as a direct command before press- 
ing RUN. 


10 LET Z - PI/PI 

20 LET Y = 9 

30 LET X = 5 

40 LET M = Y + Y 

50 LET N = M + Y 

60 LET Ag = CHRS(INT(RND+Y)+Z) 


70 LET B = T 
80 LET C = I 
90 LET F = T 
100 FOR D = C 
110 LET E = R 


120 PRINT AT 
130 PRINT AT 
140 PRINT AT 
150 PRINT AT 
160 NEXT D 
170 RUN 


KONO 


NT RND*X + Y 
NT RND*X + Z 


NT RND*C + Z 


TO CODE АЗ STEP C 


ND*Y + X 
D,E;Ag 

М - О, Е; АЗ 
р, М - Е; АЗ 


М - D, N ~ Е; АЯ 


| thought it might be useful if | briefly described how one pro- 
gram in this book was written, following through the steps | 
took. Although my method is not particularly original or excit- 
ing, reading this section may give you some additional ideas for 
tackling your own programming problems. 
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The game | am going to talk about is called FIVE FIELD 
KONO. While writing this book, | was reading Donald Spencer's 
splendid book GAME PLAYING WITH BASIC (Hayden) and 
was looking at the section at the end of the book where he 
describes a number of games which he challenges the reader to 
turn into games' programs. His description of FIVE FIELD 
KONO is as follows: “One player has seven black stones and the 
other seven white ones . . . The players move one piece at a 
time, in alternate plays, either backward or forward or diagonaliy 
across the squares. The object of the game is to get the pieces 
across to the other side in the place of those pieces of the other 
player. The player who does this first wins the game. Write a 
program that will play this game.” 


Fine, | thought, I'll tackle it. In June 1980, shortly after the 
National ZX80 and ZX81 Users' Club was founded, | spent an 
evening with two men from Premier Publications, a software 
firm whose advertisements i'm sure you have seen in the 
monthly magazines. They suggested that | should read the book 
BASIC WITH STYLE. Of course, | ignored their advice until 
October, when | bought the book at Lion House and started 
learning what | should have known a long time before. 


Paul Nagin and Henry F. Ledgard, who wrote BASIC WITH 
STYLE, believe that programs should run first time, with no de- 
bugging necessary. They also have some strict 'rules' which 
they suggest programmers follow. One of their ideas is what 
they call 'top down programming' in which the programmer (a) 
works out what he or she wants the program OUTPUTS to be 
(i.e. the computer plays chess); (b) what way the computer will 
accept the INPUTS and (c) what the main, self-contained sub- 
routines will achieve. But, and this is an important but, the 
contents of each module and subroutine are not worked out at 
this stage. For FIVE FIELD KONO, the first stage could well 
be: 


PRINT BOARD 

COMPUTER MOVE 

HUMAN MOVES 

CHECK IF ANYONE HAS WON 
IF SO GOTO WIN ROUTINE 
GOTO REPRINT BOARD 
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Because | don't follow the rules exactly, | started by drawing 
a diagram of a five by five board, numbering the squares on to 
25, so the computer would have something to handle. This is 
my first page of notes: 


Zo! 
1 4 Jowoa Ki 
a 
a 
c 
e 
€ 
smar: С ow t 2 ну Ç re 
M o2 © LO гол +J AG vr 
Dyas acer) Dim 86 


FOR As то 0 
сыт ALA): С. 
мот А 
tw асе) = € 
-- As 20 v +f 
<= A ANIH 
7-77 A 
wr aCe): ы 
‚бт 80): € 
vet (д : -c 
еж в (3) rou 


om BOY) 2 — v 
c BS): < 
ve 6 6) = - 6 


You'll see that as well as drawing the “board”, | also added the 
numbers 1 to 5 at the top, and the letters A to E down the side, 
to identify the squares. Next, | made a note of which squares 
would be allocated to which player at the start of the game. | 
decided to use C for the computer pieces and H for the human. 
| set up two arrays. One (A) to hold the pieces (1 to 25) and the 
other (B) to hold the numerical difference between the square a 
piece was on and the possible legal moves available from that 
square. For example, if the computer was on square 13, it could 
move forward (+5) or backward (—5), diagonally forward (+6 or 
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+4) or diagonally back (—6 or —4). The six possible moves were 
placed in the second array, and then numbered in order of pre- 
ference. | decided the computer should move forward whenever 


possible, so the elements of the array containing positive num- 
bers were numbered one to three. 


Here is my second page of notes for this program: 


K So L 
со Mf Ат = 
l т” 17 
«ол Ne e a wass 
eene 
Fox Ber 1 kan 3 


“A я (4-8): d —— “<€ eto 
pan d 
AA А 
fan Фу ' re ах 
gen дк yv => 6 
WERTE Ф -- hend 
m d 


лы A 
acr А(А>4): a 
Le ala) = £ 
cosut Тоо — 
for coy ot 
^ccer Pann ~ е Ф 


"^r АУ 


LET Or cet (Aj)' - + солк) 


ec E : соет (AJO - + mer (^J c) 
“ст AE) = M 
ur o ^(0)-6 
69/-4 sen 


sere < — “2 ZY 


Notice I've called the first section COMPUTER MOVE, and - as 
yet -- there are no line numbers. The routine includes a THEN 
GOTO (in the third line down) without a line number. This 
will, in due course, become GOTO the make-a-move routine. 


The next bit is headed ACCEPT PLAYER MOVE, which is 
entered as a string (AZ). The next two lines are very vague 
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because | did not have a manual with me at the time, and | 
couldn't remember the best way to convert a string into the 
elements of a two-dimensional (in this case, five by five) array. 
The ACCEPT PLAYER MOVE ends with two lines GOSUB 
BOARD and GOTO COMPUTER. At this stage, of course, the 
board subroutine had not been written. 


Now to my third and final page of initial notes: 
сюе — р 
go Ano Г-4.ы-т.хХ. 
l À nrw 
ем ue Ф с or gags 
Pan — ar do , 2 3 м x C 
шәл А c re 2 
Pann Coa (ALA) era e), "S 
ae Cy mr Смт) = A wr бы 
Cue cas ) 


en 


Aet ma 


Ap м, Cum 


ta A( aje a ava É >29 PN ^ii) 


2 T. To MI x — 


о mee бл» ` nomne 


и-—: <-> arc, aes (=> ve DO Aa, — 7 


This has two sections, the first which prints out the board, and 
includes a reference to REM WIN CHECK, plus an arrow to 
move a line to a better place in the loop, and the second which 
prints out the name of the winner. 


The next step was to turn on the computer, and start entering 
a program based on the notes made so far. Firstly, | numbered 
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the lines on page one, and entered them, and tried to run the 
program. | quickly discovered | had not assigned any value to 
either C or H, so these were added to the beginning. After the 


first quarter hour at the computer, my first page of notes looked 
like this: 


б от 
4 2 tw 4 Ker 

a A4 — 64 
a 
< 
e 
€ 

fr: С en (2 PW б ro 

- M o^ 16 210 <i Lx 22 kk vr 

А4) core: 


to TW ED и:у/ 

49 ры acar) зо an sig 
НЫ сөс A» i re G 

ФО ¿C А(л)т C. 

<? war A 

Ge terraced 

о fa— ^» 26 т +$ 

ro com A( AY= M 

бе [AFT A 


toe е" m Cc): pi 
149 LET ву: 
Гг” Cf) : -c 
1 ie LA в) rou 
two eem BCH) 2-5 
13% ж” 3) = 6 
1 be æ 66%) -6 
“С Со/744 soos 


І continued numbering the lines, апа entered them іп order, апа 
discovered several deficiencies in the program as ! had originally 
sketched it out. This is how my page two notes looked after a 


further 20 minutes or so, rapidly becoming a jumble of scrawls 
and arrows: 
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<S — < 


I тм a LO 
е *°^ и a mama, 
= 


17 kan 8 = ша 3 


(#5 
ap Я че «ете 
р pos war 4 n(A): € А,» 
te 
TT A 
/ Lu kor +; Ж} men 4 7 
/ 250 gan 4 «= me 
2202 y. ое ma gwo 
SEE 
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24% согов qom / оо” ns 
renn en 


Acre ty t е Ф 
3со дез soua 
BIO sweuTr AJ 


37e «т 0S ec (ay) Wr -30) + coor (asc) ал 


em $ Loos (Алу?) + 4.2 Cad co) -g 
eer ^q) > н . 

ст (o) x é 

E2128 — egere (© 


£67 
T: Stee (а/с) 2 А Ane 4:3 


Ta < «г 2/90 


Notice, though, that the sectionof program to accept the player's 
move is not complete, I've added a line (185) to get the compu- 
ter to reject invalid moves, plus bits to check that it is moving 
its own piece, and to make the move. The least accurate lines 


in the original rough program were those numbered 190 and 
240, which explains the arrows and additions. 
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Page three, as you can see, suffered a little less than the others: 


ao — 
jo? = Р 
бо 42-0 7-4 nu 
боо 
eoo LA же — vay 
to Le pa — $ - , z 3 » x 
сө. аз, re 2. a Lill 2 


а. a Cue Жадау Й " 
6 т Жир ГЛ): д man + 
ст C lf» Y 552, ,,, 


n 


Atann аі. 
arn Xx c< ct 


1e A(A)ma ava f >!) on 4:16) 


T^ sr Ж: x — 
yi 7 
IN x * 7 L~~ care — ad 


46 aca): ^ Ame (a T 7 = 4...) 
тыз е-е” Ys -! 

> мат А 
тне (мо о Cy ta ^a re a 


aie aA 


-- “— ` e 
: са» i ху у a св eT 2 
— 
>“ “-- 7--” 7“ kan An ”; 
panne ^ .-” sz `, mou (т) Ao, — 7 


The program now worked, and a complete listing is given shortly 
so you can enter it yourself if you like. However, it has delibera- 
tely been left slightly incomplete, so you can finish it off. There 
is no routine to get the computer to occupy the two squares “ир 
the side' (i.e. those numbered 16 and 20), although the 
computer may well move into these by chance, if the back row 
is blocked. Once you've played a game or two with it, try and 
add a routine to improve the computer's end game. 


The method 1 follow deviates in some important respects from 
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that advocated in BASIC WITH STYLE, so | suggest you get 
hold of it and digest its contents, and use the ideas in it which 
seem sound and relevant to the way you work. You're sure to 
benefit from doing this. 


Finally, in this section, is the almost-complete FIVE FIELD 
KONO, which is dedicated to Donald Spencer, who inspired it 
(and probably would have written it better). 

5 LET C - 40 

7 LET H - 45 

10 DIM A(25) 

20 DIM B(6) 

30 FOR A = 1 TO 6 
40 LET A(A) = C 

50 NEXT A 

60 LET A(10) = C 

70 FOR A - 20 TO 25 
80 LET A(A) - H 

90 NEXT À 

100 LET A(16) = H 
110 LET B(1) = 5 

120 LET B(2) = 4 


130 LET B(3) = 6 

140 LET B(4) = - 4 
150 LET B(5) = - 5 
l60 LET B(6) = - 6 


165 GOSUB 1000 
170 FOR А = 1 ТО 20 
180 FOR B = 1 ТО 3 
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185 


340 
350 
360 


1000 LET X 
1010 LET Y 
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IF 5*INT(A/5) = A AND B = 3 THEN 
GOTO 210 
IF A(A) = C AND A(A + B(B)) = O 


THEN GOTO 270 
NEXT B 
NEXT A 


FOR A 


lI 
` 


TO 20 

FOR B = 4 TO 6 

IF A(A) = C AND A(A+B(B)) = 0 
THEN GOTO 270 

NEXT A 

NEXT B 

PRINT "I CONCEDE THE GAME";W 
LET A(A+B(B)) = C 

LET A(A) = 0 

GOSUB 1000 

REM PLAYER 

INPUT АЗ 

LET р = 5*(CODE Ag - 38) + CODE 
Ag(2) - 28 | 

LET E = 5* (CODE Ag (3) - 38) + 
CODE Ag(4) - 28 


LET A(E) = H 
LET A(D) 0 
GOTO 165 


0 
0 


1020 PRINT AT 5, 0;"1 2 3 4 5" 

1030 FOR A = 1 TO 25 

1040 PRINT CHR$£(A(A));"."; 

1050 IF 5*INT(A/5) = A THEN PRINT CHRS 
(А/5 + 165),,,, 

1060 IF А(А) = С AND (A > 19 OR A = 
16) ТНЕМ LET X = X 41 

1070 IF A(A) = H AND (A < 7 OR A = 10) 


THEN LET Y = Y + 1 
1075 IF X = 7 OR Y = 7 THEN GOTO 1120 
1080 NEXT À 


1090 PRINT ”1 2 3 4 5” 
1095 PRINT 
1100 PRINT "HUMAN ";Y;" COMPUTER ";X 
1110 RETURN 
1120 IF X > Y THEN PRINT "COMPUTER"; 
1130 IF X < Y THEN PRINT "HUMAN"; 
1140 PRINT " WINS BY ";ABS(X - Y)*7; 
" POINTS" 


SNAKEWINDER 


You are the snake ( a series of V's) and you have to guide the 
head of the snake through the blocks which are scrolled up at 
you. You'll be given a score, in this 1K ZX81 game, after 10 
blocks have hit you. Note that the ‘snake’ first appears just as a 


V, but quickly becomes a snake. The "8" key is your guidance 
control. 


10 LET P 


12 
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20 DIM X(6) 


30 LET X(1) = INT(RND*4) + 10 

40 SCROLL 

50 LET P = P + (l AND ІМКЕҮФ = "8" 
AND P < 13) - (1 AND ТМКБУЯ = 


"8" AND P > 10) 


60 PRINT AT 21,X(l);"graphic on A key";AT 
18,P;"v" 

70 IF X(4) = P THEN LET X(5) = X(5) + 1 

80 LET X(4) = X(3) 

90 LET X(3) = X(2) 


100 LET X(2) = X(1) 
X(6) + 1 


1 


110 LET X(6) 
120 IF X(5) < 10 THEN GOTO 30 
130 PRINT TAB P;"graphic on X Кеу";Х(6) 


TWENTY-ONE 


Twenty-one is a 1K ZX80 game in which and the computer 
take it in turns to roll the die, trying to get a total as close as 
possible to 21, but not exceeding 21. It is essentially a dice 
version of blackjack. You'll find the computer plays very well 
in this game. If you want to roll again, after your first roll 
(see line 110) enter a one. If not, and you decided to ‘stand’, 
that is stay on the score you have reached, enter a two to 
allow the computer to roll the die. As listed, a game consists 
of two rounds, but you can easily make this more(five is a 
good number) by changing the 2 in line 7 to a 5, or whatever 
number you choose. 


10 LET SI = O 
20 LET SM = 0 
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30 FOR Z = 1 TO 2 
40 LET E = O 

50 LET F = O 

60 GOSUB 5000 


100 IF E > 0 THEN PRINT "TOTAL ";E 

110 IF E = 0 THEN PRINT "l1 TO ROLL, 
2 TO STAND" 

120 INPUT A 

130 IF A = 1 THEN LET E = E + RND(6) 

140 IF A = 1 THEN GOTO 100 

145 IF E > 21 THEN GOTO 403 

150 CLS 

155 PRINT "OK, YOU STAND ON ";E 

160 LET U = O 

170 LET G = RND(6) 

175 LET U = U + 1 

180 IF U = 6 THEN CLS 


185 LET F = F + G 

190 PRINT "I ROLLED A ";G;", MY TOTAL 
IS ";F 

200 INPUT А2 


210 


215 
220 


230 
270 
400 
402 
403 
410 


415 


420 


425 


430 


440 
450 
460 
470 
480 
490 
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IF F < 17 OR (F < E 
THEN GOTO 170 
IF F < E AND E > 21 
IF F > 18 AND NOT(E 
THEN GOTO 400 
IF F < 22 THEN GOTO 


PRINT "YOU STOOD ON 


PRINT "I STAND ON ”; 


INPUT Ag 
CLS 


AND E < 22) 


THEN GOTO 410 
= 20 OR E = 21) 


IF (F > Е AND F< 22) OR E > 21 


THEN PRINT ,,"I WIN 


" 


IF (F »E AND F« 22) OR E » 21 


THEN LET SI = SI + 1 


IF F > 21 OR (E >F 


AND E < 22) 


THEN PRINT ,,"YOU WIN" 


IF F > 21 OR (E > F 
THEN LET SM = SM + 1 
IF E = F AND E < 22 
,," DEAD HEAT" 

GOSUB 5000 

INPUT A$ 

CLS 


NEXT Z 


AND E < 22) 


THEN PRINT 


IF SI > SM THEN PRINT "TU 


IF SM > SI THEN PRINT "YOU"; 


500 IF SM = SI THEN PRINT "WE BOTH”; 

510 PRINT " WIN" 

530 STOP 

5000 PRINT "ROUND ";CHR£(128);CHRg 
(156 + Z);CHR$g£(128),"YOU:- ";SM, 
ММЕ:- ";SI 


5010 RETURN 


MOONLANDER 


(1K ZX80) 
10 LET A = - 20 - RND(60) (velocity) 
15 LET B = 1200 + RND(380) (height) 
20 LET C — 320 * RND(90) (fuel) 
25 CLS 
30 PRINT "HEIGHT ";B,"VELOCITY TRA py 

“КЕЕ. "7C 

40 FOR Q = 1 TO 16 - B/100 
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45 
50 
55 
56 
57 
58 
60 
62 
63 
69 
70 
90 
100 
110 
120 
125 
130 
140 


150 


160 


180 


190 
200 
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PRINT 

NEXT Q 

FOR Q = 1 TO 5 + RND(3) - RND(3) 
PRINT "ѕіпд1еѕрасе"; 

NEXT Q 

PRINT "shift S';CHR$(136) 
FOR Q = 16 - В/100 TO 16 
PRINT 

NEXT Q 

PRINT "THRUST?" 

INPUT T 

IF T > C THEN LET T = 0 


LET C с - T 


LET B = B + A + (T - 5)/2 

LET A = A + (T - 5)/2 

ТЕ С < 1 AND Е > 100 THEN GOTO 180 
IF B > 19 THEN GOTO 40 

IF ABS(B) < 20 AND ABS(A) < 15 THEN 
PRINT "YOU HAVE LANDED SAFELY" 

IF ABS(B) < 20 AND ABS(A) < 15 THEN 
STOP 

IF С > 1 THEN GOTO 190 

PRINT "YOU HAVE RUN OUT OF FUEL" 


PRINT "CRASHED AT ";АВ5(А);" MPS ; 
GOTO 190 


ACEY-DIGITY 


This game, a numerical version of ACEY DUECY which is 
played with cards, fits a 1K ZX80. Full instructions for playing 
the game are within the program. 


10 LET D = 20 

20 CLS 

30 LET A = RND(13) 

40 LET B = RND(13) 

50 IF ABS(B - A) « 2 THEN GOTO 90 
60 LET C = RND(13) 

70 IF A = C OR B = C THEN GOTO 60 
80 PRINT "MY FIRST NUMBER IS ";А 
90 PRINT "МҮ SECOND IS ";B 
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100 PRINT 

110 PRINT ,"YOU HAVE $";D 

120 PRINT 

130 PRINT "HOW MUCH DO YOU BET MY NEXT" 

140 PRINT "NUMBER LIES BETWEEN ";,А;" 
" AND "; B;"?" 

150 INPUT E 

160 IF E » D THEN GOTO 150 

170 IF E < 1 THEN PRINT ,,"COWARD" 

180 PRINT 

190 PRINT "MY NUMBER IS ";C 

200 IF E < 1 THEN GOTO 280 

210 ТЕ NOT (C > A AND C < B OR C < À 


AND C > B) THEN GOTO 340 


220 PRINT "WELL DONE, YOU WIN ";2*E 
230 LET D = D + 2*E 

240 GOTO 280 

250 PRINT "SORRY, YOU LOSE $";E 

260 LET D = D- E 

270 IF D < 1 THEN GOTO 300 

280 INPUT А9 

290 GoTO 20 

300 PRINT "YOU ARE BROKE" 


YO 


PERSIAN CARPET 


In this 1K ZX81 program, a carpet (!) rolls up on the screen, 
designed by the master weaver ZX81. From time to time, the 
craftsman changes the design. This is a good demonstation 
program for the computer. Delete line 30 if you have a 16K 
pack fitted. 


10 LET P = 2 
20 LET M = 10 
POKE RAND LET EDIT 
= + = М New 
5 a қ” МЫ ЕЗ 
30 РОКЕ 16418, М 
40 DIM А%(м) 
50 FOR A = P TO M 
60 LET Ag(A) = CHRS(INT(RND+9)+P) 
70 NEXT A 
80 GOTO 160 
90 FOR G = P TO M 


100 PRINT A$(G); 

110 LET K = K + P/P 

120 IF K = M+M+M THEN GOSUB 160 
130 IF RND < .006 THEN RUN 

140 NEXT G 

150 GOTO 90 

160 SCROLL 

170 LET K = 0 

180 RETURN 
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ММ - zxso 


10 LET М = 0 

20 LET E = 0 

30 LET Z = 15 + RND(9) 

40 IF 2*(Z/2) = Z THEN GOTO 30 

50 LET H = 2 + RND(2) 

60 PRINT "MAXIMUM TO TAKE ";H 

70 PRINT 

80 IF E ^ 0 THEN PRINT "YOU TOOK "; 


E, "I TOOK ";Q 
90 PRINT 
100 FOR K = 1 TO Z 
110 PRINT K;"shiftA space"; 
120 IF RND(2) = 1 THEN PRINT 
130 NEXT K 
140 PRINT 
150 INPUT E 
160 IF E > H THEN GOTO 150 
170 CLS 
180 LET Z = Z - Е 
190 IF Z = 0 THEN PRINT "I WIN" 


STOP 


lI 
° 
У 
x 
ta 
= 


200 IF Z 
210 LET Q = Z - 1 - ((2- 1)/(H + 
1))*(H + 1) + RND(2) - d 
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220 IF Q > Z OR Q = 0 OR Q > H THEN 
GOTO 210 

230 LET 2 = 2 - 0 

240 ТЕ 2 = О THEN PRINT "I TOOK ";0 

250 IF 2 - 0 THEN PRINT "SO YOU WIN" 

260 IF 2 - 0 THEN STOP 

270 GOTO 60 


MATCHSTICKS 


This game, based on one which was featured in the film “Last 
Year at Marienbad', is a 1K ZX81 variant of NIM. There аге 
21 matches at the start of the game, and you and the computer 
take it in turns to take between one and four matches. The 
player who takes the last match loses. In contrast to many com- 
puter games of this type, the computer can (very occasionally) 
make. mistakes and lose. Notice the effect produced by the 
‘scroll-loop’ in lines 120 to 140. 


10 RAND 

20 LET A = 21 

30 SCROLL 

40 PRINT "HOW MANY?" 

50 INPUT B 

60 IF B < 1 OR B > 4 THEN GOTO 50 
70 IF A - B = 0 THEN GOTO 260 

80 IF A - B = 1 THEN GOTO 300 

90 LET A = À - B 


100 LET C = 4 - INT(RND + .6) 
110 IF RND > .5 THEN LET C = 5 
120 FOR R = 1 TO 24 
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130 
140 
150 


160 
170 
180 
190 
195 
200 
210 
220 
230 
240 
250 
260 
270 


280 
290 
300 
310 
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SCROLL 

NEXT R 

PRINT "YOU TOOK ";CHRS(B + 156); 
", I TAKE ";CHRg(C - В + 156) 
LET A = A - C + B 

SCROLL 

FOR G = 1 TO 90 

NEXT G 

SCROLL 

PRINT ,"LEAVING ";A 

SCROLL 

FOR J = 1 TO A 


PRINT"graphic 5"; 


NEXT J 
GOTO 30 
SCROLL 


PRINT 


GOTO 260 


SCROLL 
PRINT "YOU WIN" 


GOTO 290 


WHAT CAN YOU DO 
WITHIT? 


Let's look at some things you can do with your computer. 


Many ideas which are put forward for personal computers - - 
such as running the heating, or for use as a diary or telephone 
directory - - are really not practical. These are the kind of things 
which can be done far more easily and efficiently with a set of 
cards and a pen, or a piece of paper and a pen, than they can 
with the computer. For the time being , given the limited 
memory of your computer, the need to load programs into 
it byte by byte from an outside source, and the fact that it 
needs to be plugged in all the time ( and run a display screen 
as well) to be of any use at all, precludes it from those sorts 
of applications. 


What most people find they do initially with their microcom- 
puters, regardless of why they think they bought them, is 
play and write games. From this they learn familiarity with 
the computer, and learn to program. But, many people ask, 
what then? 


This section of the book will look at some of the possibilities. 


RECORD KEEPING: The computer is very useful as an adjunct 
to keeping records like names of members of your club, or the 
records or cassettes in your music collection, or the numbers 
of trains you have spotted IF, and this is a big If, you want to 
sort the information into order (such as alphabetical, or highest 
to lowest, or by some other category such as age), or you wish 
to extract something out about it (such as the number of club 
members you have who live in Cambridge, or the number of 
records you have by The Beatles which were released before 
1970). Unless you want to do this sort of manipulating with 
the information you have, the data is best kept on cards, but 
it is an invaluable service if you need to work with the data in 
some way. 


INVENTORY MANAGEMENT: The size of the memory you 
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have will obviously dictate the kind of inventory records you 
can keep. If you, or your parents, run a small store, you may 
well find that you can divide the stock into types, and keep 
one type (such as canned goods) in one cassette data file. 
Alternatively, if you run a pub, you may find the kinds of 
goods you have to keep in stock (5 types of beer, snacks 
like crisps and peanuts, various mixers and whatever) can be 
fairly easily kept within the memory you now have. You can 
fairly easily write a program into which you enter the sales 
from each day, and at the end of each week, the program 
tells you how much to order. 


STAFF PAYROLL: If you have a small firm, you may well 
find that the time taken to write a program to work out what 
you should pay each employee each week will be well rewarded. 
Such information as tax could be automatically calculated, plus 
other deductions, and if you hook up a printer to your com- 
puter, there is no reason why you can't get the computer to 
print out the pay slip for you. Of course, unless you have 
employees with sufficiently different pay levels and deductions 
to make this worthwhile, you may prefer to continue with your 
present pencil, paper and calculator method of working out 


pay. 


ROUTINE CORRESPONDENCE: Without a printer, you can- 
not do this. But you may find, especially if you are organiser 
of a club which requires you to correspond with a reasonably 
large membership, that a standard letter - - with provision for 
adding the person's name and address at the beginning, plus 
some personalised material at the end of the letter - - could be 
used to print out the letters as you demand. 


EDUCATION: This isa very big area, where your computer can 
be used with good effect. Not only for the kind of quizzes 
we“ve discussed in the education section of this book, but for 
more sophisticated question/answer/grading programs that will 
teach you as much when you're entering the program as when 
you're actually running it. No matter which subject you're 
studying, you'll probably be able to discover an enjoyable way 
to incorporate the computer into your study, and - - as | said 
- - you'll probably learn as much from programming it to help 
you as you will from running the program. It is very simple to 
create a number of simple interactive programs to use with 
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young children, which will help them recognise such things as 
counting sequences, letters of the alphabet, simple arithmetic. 
If you use it with young children, never force them to stay at 
the computer for a moment longer than they want to. They'll 
think of it as a game which they'll return to over and over 
again if they are not forced to do so, and the familiarity 
they'll gain with working with computers will be worth as 
much, in terms of their education, as will the material they'll 
learn from the program. 


USERS CLUBS: You're sure to find other people in your area 
with the same computer as yourself. A simple ad: “ZX81" 
addict seeks others with similar affliction in Preston, phone 
XCB HHDG” could bring computer owners crawling out the 
woodwork, all anxious to talk about their computers, and to 
share programs and ideas. All over the country, small groups 
of five to a dozen people meet in each others homes to swap 
ideas, programs, hardware tips, and sort out problems. If 
you find your parents or partner not entirely literate in the 
computer field, you may well become 'starved' for someone 
to talk to. Starting your own local users' group, rather than 
waiting for someone else in the area to start one, is a great 
way to meet other owners in the area. 


PERSONAL ACCOUNTS: This is another area where your 
computer can be very useful, especially if you do not use it as 
the final source of information about the state of your cheque 
book or whatever, but rather decide to use the computer as a 
general indication of the mess (or otherwise) your personal 
finances are in. Final totting up should be done with the old 
standby of calculator, pencil and paper. 


SIMULATING: This is an area which can make great demands 
on your programming ability, but which can provide many en- 
joyable and useful hours at the computer. If, for example , you 
wanted to find out what you should do with your stocks and 
shares, you could feed them in, with their current market 
values, along with the way the prices for these have changed 
in the past month, and project the trend forward for a month. 
This could indicate not only which stocks you should sell, or 
which you should get rid of, but just what value your port- 
folio is likely to have at the end of that period. 


Of course, this is a simplistic example, and one which would 
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hardly give very useful information on what you should do with 
that bulging portfolio, but it may give you some idea. 


Another idea: You could feed in your annual salary over the 
past, say, five years, noting how it has changed from year to 
year, add a counter-indicator on the rates of inflation in those 
years, and find out not only how your real spending power has 
changed in the period, but assuming the trends you've observed 
continue, how it will grow(or, horrors, shrink) in the coming 
years. 


Have a look at other computer books. You'll find many of these 
will enhance and expand your interest in your computer. Some 
books I’ve found useful are: 


Game Playing in BASIC - Donald D. Spencer (Hayden) 

The First Book of Microcomputers - Robert Spencer(Hayden) 
250 Sa Ware, Courmet Guide and Cookbook - Nat Wadsworth 
Scelbi 

Fifty BASIC Exercises — J.P. Lamoitier (Sybex) 

Computer Programming in BASIC for Everyone - T. Dwyer and 
M. Kaufman (Radio Shack) 

Microsoft BASIC - Ken Knecht (dilithium Press) 

The BASIC Cookbook - Ken Tracton (Radio Shack) 

BASIC Computer Games - edited David Ahl (Creative Comput- 
ing Press) 

More BASIC Computer Games - edited David Ahl (Creative 
Computing Press) 

Computer Programs That Work! Lee, Beech and Lee (Sigma 
Technical Press) 

The Cambridge Collection, 30 programs for the ZX81 - Richard 
Francis 

Computer Games for businesses, schools and homes - J.V. 
Nahigian and W.S. Hodges (Winthrop) Comp 

The ZX80 Magic Book (Timedata) 

57 Practical Programs and Games in BASIC - Ken Tracton 
(TAB Books) 

30 Programs for the Sinclair ZX80 1K - A. Milgrom(Melbourne 
House) 

The ZX80 Companion, The ZX81 Companion - B. Maunder 
(Linsac) 

Hits and Tips for the ZX80, Hints and Tips for the ZX81 
(Hewson Consultants) 
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CUBIK 


This program produces a two-dimensional version of that cube 
puzzle which recently swept the world. In CUBIK, you have a 
flat surface divided into 16 segments. These are numbered from 
1 to 16, naturally enough. When you run the program, you'li 
see the flat surface, with the inverse numbers 1 to 4 arranged 
neatly on it. This is the arrangement you want to end up with 
after rotating the pieces in the CUBIK. 


You move by entering a number (see key below). This number 
‘pushes down‘ the number below it, and rotates a block of four 
numbers one square clockwise. 111 give you an example. 


Here is the numbering code: 


1 2 3 B 
5 6 7 8 
9 10 11 12 
13 14 15 16 


If you wished to 'rotate' from square 4, you would enter that 
number. When the cube reappeared, the squares would be 
arranged as follows: 


1 2 7 3 
5 6 8 h 
9 10 11 12 
13 14 15 16 


The program keeps track of the number of moves you have 
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taken to re-arrange the CUBIK. Note that you don't actually 
see the numbers from 1 to 16 as in the example, but instead 
see the inverse numbers one to four. You need to refer to the 
first pattern given to know which square to rotate from. 


If you find the problem too simple as listed, simply change the 
maximum number of initial twists, by changing 


150, 160, 370, 380. 


10 RANDOMISE 

20 LET F = 1 

30 DIM A(4) 

40 DIM B(16) 

50 LET B = 1 

60 FOR D = 1 TO 4 


This routine sets up the initial 
CUBIK arrangement. 


70 LET C = -(B = 1) - 2*(B = 3) 
- 3*(B = 9) - 4*(B = 11) 

80 LET B(B) = C 

90 LET B(B + 1) = C 

100 LET B(B + 4) = C 

110 LET B(B + 5) = C 

120 LET B = В - 2*(B = 1) - 6* 
(B = 3) - 2*(B = 9) 


130 NEXT D 

140 GOSUB 300 

150 IF F «11 THEN LET X - 
1 + RND(l11) 

160 IF F > 10 THEN INPUT X 

170 IF X = 5 OR X = 9 THEN 
GOTO 150 


The next routine makes the twist. 


180 LET A(1) = B (X) 

190 LET A(2) = B(X + 4) 
200 LET A(3) = B(X + 3) 
210 LET A(4) = B(X - 1) 
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220 LET B(X) = A(4) 

230 LET B(X + 4( = A(1) 

240 LET B(X + 3) = A(2) 

250 LET B(X - 1) = A(3) 

260 GOSUB 300 

270 IF F < 10 THEN INPUT Ug 
280 LET F = F + 1 

290 GOTO 150 


This routine prints the CUBIK. 


300 CLS 

310 PRINT 

320 PRINT 

330 PRINT , 

340 FOR В = 1 TO 16 

350 PRINT СНЕВ(В(В) + 156);" "; 

360 IF 4*(B/4) - B THEN PRINT 
rere Pg» SA 

365 NEXT B 

370 IF F <10 THEN PRINT 
"TWIST ";F 

380 IF F >10 THEN PRINT 
"MOVES SO FAR ";F - 10 

390 RETURN 


The listing given will run on a 1K ZX80, and - - after the 
changes are made - - requires 2K on the ZX81. 


Firstly, of course, we need to change the way the random 
numbers are generated, so alter line 150 as follows: 


150 IF F < 11 THEN LET X = 
2 + INT(RND*11) 


Change the minus signs in lines 120 and 70 to plus signs, and 
replace the whole print subroutine (from line 300) with the 
following: 


300 PRINT AT 3,8; 
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310 
320 
330 


340 
350 


FOR B 
PRINT CHRS(B(B) + 156);" "; 


= 1 TO 16 


4 


IF 4*INT(B/4) = B THEN PRINT 


AT 3 


+ B/4,8; 


NEXT B 
PRINT AT 8,8; 


Include lines 370, 380 and 390 
as they are. 


SPACEYS 


A spaceship cruises overhead in this 1K ZX81 game. Your 
missile (an asterisk) will stay on the ground until you press 
“14 then it will take off with remarkable willingness. You 
can guide it, with “8” for left, and “Q” for right. After 200 
ships have passed overhead, your score, and the best score 
achieved so far, are shown. If you hit the middle of the ship 
you score 25 points, while clipping the ends will only rate a 10. 
You can guide the missile at any time. . . in the air, or on the 
ground. The N/L in line 180 is, of course, short for NEWLINE, 
and use shift 4, to get the “TO”. In line 210, use a “to the 
power оҒ” (shifted H) for part of the explosion after TAB М. 


10 
20 
30 
40 
50 
60 
70 
80 
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LET 


LET 


GOSUB 250 


T = 0 
S = 0 


LET P = 15 

FOR Z = 1 TO 20 

LET H = INT(RND*8) + 5 

FOR N = 0 TO 29 

LET P = P + (1 AND ІМКЕҮЗ = "0" AND 
P < 31) - (1 AND INKEY$ = "8" AND 
P > 0) 


90 
100 


110 
120 
130 


140 


150 
160 
170 
180 


190 
200 
210 


220 
230 
240 
250 
260 
270 


IF INKEY$ = "1" THEN LET Cg = "C - 1” 


LET C = VAL Cg 


RET NEXT BREAK 
OR « > £ 
B N M SPACE 


IF C = Q THEN GOSUB 250 

CLS 

PRINT AT H,N;"graphic shift N graphic 
shift B graphic shift M";AT C,P;"*" 
GOTO I80 + (60 AND C = H AND P >= N 
AND P < N + 3) 

NEXT N 

NEXT Z 

IF 5 > T THEN LET T = S 

PRINT "SCORE: ";S;"BEST:";T,"N/L 

TO START" 

INPUT АЗ 

GOTO 280 - (260 AND Ag = "") 

PRINT АТ H - 1, N + 1;"*";TAB N;"***'",. 
TAB N + 1;"*" 

LET S = S + 10 + (15 AND P = N + 1+ 
GOSUB 250 

GOTO 160 

LET C = ]9 

LET Cg = "C" 


RETURN 
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SPOTTO 


The clever computer thinks of a number between one and 50, 
gives you five tries to guess it, and gives feedback in the shape 
of spots before your eyes. Of course it fiis within 1K, and to 
run it on a ZX81, all you need to change is the random number 
generation in line 20. 


10 RANDOMISE 

20 LET A = RND(50) 

30 FOR B = 1 TO 5 

40 PRINT " GUESS NUMBER ";B 

50 INPUT C 

60 IF C = A THEN GOTO 140 

70 PRINT C;" IS WRONG. CLUE:-"; 
80 LET D - ABS(A - C) 

90 FOR E = 1 TO D 


100 PRINT "fullstop singlespace"; 
110 NEXT E 
120 PRINT 
130 NEXT B 


140 PRINT " I WAS THINKING OF ";A 


Um FD EP ҮН ERS PB 05 ry" rg ra 
бт CP 05 CE UP Gss СЫ rs ra ra 


150 IF NOT A = C THEN STOP 
160 PRINT "YOU GOTO IT IN ";B 


170 GOTO 140 


84 


LIFE 


When John Conway invented the game of LIFE at Cambridge 
University in 1970, | doubt if he imagined how popular and 
widespread the computer simulation of the birth, growth and 
death of cells in a culture would have become. But there is 
probably not a single computer system in the world for which 
a version of LIFE does not exist. There are a number of versions 
of the game for the ZX80, and ZX81 which use different ways 
to get the computer to ‘enforce the rules’. This program does 
it by generating a colony of 13 cells and placing them at 
random on a black square which is eight cells long and eight 
cells wide. It also prints an 'inverse' colony beneath the first 
one as you'll see when you run the program. It is very easy to 
change the random initial colony by altering line 240 to INPUT 
M. 


Each cell in the colony is born, lives and dies according to the 
following rules: 
. Each cell on the grid has eight neighbours 
. Every cell with two or three neighbours survives to the 
next generation 
. If there are three, and only three neighbouring cells, a 
new cell is born 
. Any cell with four or more neighbours dies from over- 
population 


This program fits a 4K ZX80 but will need more memory on a 
2Х81. 


10 RANDOMISE 
20 LET K = 0 
30 DIM A(99) 
40 DIM B(99) 
50 DIM E(7) 


60 LET E(0) = 11 
70 LET E(1) = 10 
80 LET E(2) = 9 

90 LET E(3) = 

100 LET E(4) = - 1 
110 LET E(5) = - 9 
120 LET E(6) = - 10 
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130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


350 
360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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LET E(7) = - 11 

LET C = 180 

LET Z = 128 

FOR À 1 TO 8 

FOR D 1 TO 8 

LET J = A + 10*D 

LET A(J) = Z 

LET B(J) = Z 

NEXT D 

NEXT A 

FOR A = 1 TO 13 

LET M = RND(13) 

LET A(M) = C 

LET B(M) = C 

NEXT A 

FOR A = 1 TO 8 

FOR B = 1 TO 8 

LET F = A + 10*B 

IF K = 0 THEN GOTO 410 
LET H = O 

FOR E = 0 TO 7 

IF A(F + E(E)) = C THEN LET 
Н = Н + 1 

NEXT E 

IF H < 2 OR H > 3 THEN LET 
B(F) = Z 

IF H = 3 THEN LET B(F) = C 
NEXT B 

NEXT A 

LET K = K + 1 

PRINT 

PRINT ,"GENERATION ";K 
PRINT 

FOR S = 11 TO 88 

LET A(S) = B(S) 

NEXT S 

FOR A = 1 TO 8 

PRINT , 

FOR B = 1 TO 8 

PRINT СНЕЯ(А(99.- A - 


10*B)); 


510 NEXT B 

520 PRINT 

530 NEXT À 

540 FOR A = 1 TO 8 

550 PRINT , 

560 FOR B = 1 TO 8 

570 PRINT CHRS(A(A + 10*B)); 
580 NEXT B 

590 PRINT 

600 NEXT A 

610 INPUT АЗ 

620 IF NOT A$ = "" THEN STOP 
630 CLS 

640 GOTO 280 


To convert it for a ZX81, change the 7 in line 50 into an 8, 
and add one to each of the subscripts in lines 60 to 130 (so E(0) 
becomes E(1), E(1) becomes E(2). . . until you change E(7) in 
the listing into E(8). Change lines 480 and 550 into PRINT AT 
A+6, 8; and PRINT AT A + 14, 8; respectively. 


Now, change the following two lines: 
330 FOR E = 1 TO 8 


340 IP A(F + E(E) + 1) = C THEN LET H 
= H + 1 


If you are running it in SLOW, delete the lines numbered 610, 
620 and 630. 


You may wish to try the program with a larger (say, 25) or 
smaller (7) initial colony to see what effect this has after a few 
generations. If you'd like to be able to vary the shape of the 
cell (variable C) from run to run, add the following: 


135  INPUT Ug 
140 LET С = CODE(U$) + 128 
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POETRY 


We now have two programs which, after a fashion, write poems. 
The first program requires 4K, the second will fit a 1K ZX80. 
To show how ‘great’ are the poems the computer can write, 
here is one (which | have punctuated) written by the first 
program. 


IN FEAR, LOVERS PASSING 
IF ONLY PARTING — 

BUT PARTING IN FEAR. 
LOVERS SHARING, 

IF ONLY SHARING QUICKLY 
IF ONLY SUNLIGHT. 


BOTH APPEARED, 
APPEARED, 
GENTLY IN FEAR ....... LOVE 


BOTH LOVERS, 

PARTING LOVE, LOVE. 

SUNLIGHT APPEARED, TO PARTING 
PASSING, SHARING, 

PARTING LOVERS QUICKLY. 


Note the obsession with lovers and parting! 


The first program is very slow. It can take five minutes to write 
a single poem which fills the screen. The second program has no 
such inhibitions. It fills the screen with carefully chosen words 
in a matter of seconds. 


The words which are used in program one are stored in four 
long strings. The computer searches along the string until it 
finds an asterisk, then uses the word that follows that randomly 
selected asterisk. From time to time (see line 120) the ZX80 
will stop writing to let you admire what it has written so far. A 
tap on NEWLINE will get it on its way again. 


10 RANDOMISE 

20 FOR D = 0 TO 3 

30 GOSUB 200 

40 IF RND(3) = l THEN GOSUB 200 
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50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


160 
170 
180 
200 
210 


215 
217 
220 


225 
227 
230 


235 
237 
240 


LET N = 3*C/4 
FOR D = N TO C 
LET A$ = TLg (Ag) 


NEXT D 

IF CODE(A$) = 222 THEN GOTO 140 
IF RND(20) = 19 THEN PRINT 

NEXT B 

IF RND(4) = 2 THEN INPUT В2 

GOTO 20 

LET Ag = TIS(AS) 

IF CODE(Ag) = 222 THEN PRINT " up 


IF CODE(A$) = 222 THEN GOTO 100 
PRINT CHR£(CODE(A£)); 


GOTO 140 
GOTO 210 + 10*B 
LET Ag = "THEN*AND*BOTH*FOR*TO* 


BUT*IF ONLY*YET*AFTER*BEFORE* 
HOWEVER*SO*IN CASE OF*AS IF* 

Irt" 

LET C = RND(73) + 3 

RETURN 

LET Ag = "EYES*FERNS*LOVERS*LOVE 
*PARTING*TWILIGHT*VERDANT PASTURES 
*THE FIRE*STREAM*PEBBLES*SUNLIGHT 
*MORNING*FOREST*GLADES*CLOUDS* 
EVENING*DAWN*FRIENDS*PATH*VISTA*" 
LET C = RND(134)+ 3 

RETURN 

LET A$ = "GLANCED*APPEARED* 
SHARING*SHADOWED*ASKING*FEARING* 
HOPING*SIGHING*STROLLING* 
OVERHEAD* LOOKING*LANGUISHED* 
CRYING*PASSING*DREAMED*BEGINNING* 
TURNED*MOVING*RETURNING*" 

LET C - RND(138) * 6 

RETURN 

LET A$ = "SMILING*GENTLY*QUICKLY* 
IN FEAR*SADLY*WITH SORROW* 
PEACEFULLY*TOGETHER*SLOWLY* 
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BRIGHT*EARLY*AWAY*ALWAYS* 
SILVER*" 

245 LET C = RND(94) + C 

247 RETURN 


To make this run on a ZX81, change the way the random 
numbers are generated, change lines 70 and 140 to: 


LET Ag = Ag(2 TO) 


Change all the asterisks in the strings into the letter X and 
change the 222 in lines 90 and 150 into 63. If you run it in 
slow, delete line 120. 


The next poetry program, which fits into 1K on a ZX80 , is 
simpler to convert for a ZX81. Change the manner in which the 
random numbers in lines 10, 15 and 30 are generated, change 
line 20 to: 


20 PRINT " "; (eight spaces) 


and the program will run on an '81. 


5 PRINT " "; (single space) 
10 IF RND(l2) > 2 THEN GOTO 30 
15 FOR D = l TO RND(8) 

20 PRINT , 

25 NEXT D 

30 GOSUB 40 + 10*RND(15) 

40 RUN 

50 PRINT "WICKED"; 

55 RETURN 

60 PRINT "BATTLES"; 

65 RETURN 

70 PRINT "TURNING"; 

75 RETURN 

80 PRINT "GRAVES"; 

85 RETURN 

90 PRINT "THEN"; 

95 RETURN 

100 PRINT "DARK"; 
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105 RETURN 

110 PRINT "AND"; 

115 RETURN 

120 PRINT "HOLLOW"; 
125 RETURN 

130 PRINT "RINGTHANE"; 
135 RETURN 

140 PRINT "CACKLES"; 
145 RETURN 

150 PRINT "HAUNTED"; 
1:55 RETURN 

160 PRINT "SHUDDERED"; 
165 RETURN 

170 PRINT "ELVIN"; 

47:5 RETURN 

180 PRINT "DESPERATE"; 
185 RETURN 

190 PRINT "WITCH"; 

195 RETURN 


(The word RINGTHANE in line 130 
comes from LORD FOUL'S BANE by 
Stephen Donaldson.) 


NUMB MY 
GUESSER 


This is an inverted 'guess my number' game (hence the witty 
title) in which you think of a number between one and 100, 
and the 1k ZX81 guesses it. Few numbers should take more 
than eight guesses. The computer has a 'best run so far' feature. 
Press any key at the end of a game to automatically get a new 
game. This program can be converted to the ZX80 by changing 
line 30 to, LET Z = 1, changing the way the random number is 
generated in line 90, change line 130 to INPUT А$ and change 
INKEYS in lines 140 and 150 into AS. You'll also have to 
change 230 into INPUT АЗ. 
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10 
20 
30 
40 
50 
60 
70 
80 


90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
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RAND 
LET H 


LET 


li 


LET 


I 


LET 


LET 


о OQ < AN 


LET = Z 

IF C + D > M THEN LET C = 
М - D- 2 

LET С = INT(RND*C) + D 


CLS 


LET G G + 2 
PRINT "MY GUESS ";G;" IS ";C 
IF INKEYg - "" THEN GOTO 130 


IF INKEY$ = "C" THEN GOTO 200 


li 


IF INKEY$ "H" THEN GOTO 180 
LET D = С + 27 

GOTO 80 

LET M = C 

GOTO 80 

PRINT "I GOT IT IN ";G 

IF G < H THEN LET H = G 

PRINT "MY BEST ";H 

PAUSE 1000 


GOTO 30 


MIND READER 
— ZX80 


10 RANDOMISE 

20 LET P = 0 (player's score) 
30 LET C = O 

40 PRINT "ROCK - 1 SCISSORS - 2 


PAPER - 3" 


50 PRINT 

60 PRINT "YOU - ";P,"ME - "с 
70 PRINT 

80 PRINT 

90 INPUT A 


100 LET Z = À 
110 PRINT "YOU PICKED "; 
120 GOSUB 1000 
130 PRINT 
140 LET B 


RND(3) 
150 LET Z = B 


160 PRINT " I PICKED " 


` 


170 GOSUB 1000 
180 PRINT 
190 IF A = B THEN GOTO 250 


200 IF À 1 AND B = 2 OR À = 2 AND 
B = 3 OR A = 3 AND B = 1 THEN 


GOTO 270 


220 PRINT ,"I WIN" 

230 LET C = C + 1 

240 GOTO 290 

250 PRINT "DEAD HEAT” 

260 GOTO 290 

270 PRINT,"YOU WIN" 

280 LET P = P + 1 

290 INPUT А2 

300 CLS 

310 IF P + C = 9 THEN GOTO 330 
320 GOTO 40 

330 PRINT "END OF GAME” 

340 IF P < C THEN PRINT "I WIN" 
350 IF C < P THEN PRINT "YOU WIN" 


360 STOP 


1000 IF Z = 1 THEN PRINT "ROCK" 
1010 IF Z = 2 THEN PRINT "SCISSORS" 
1020 IF Z = 3 THEN PRINT "PAPER" 


1030 RETURN 


INITIAL 
ENCOUNTER 


You enter your initials , one at a time (or the initials of your- 
self and a friend) at the start of this program. Then, you press 
NEWLINE over and over again, and a splendid pattern will 
form. 
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When you're tired of doing that, input anything before pressing 
N/L, and the ZX80 will print out both initials, with a score 
beside each. 


The highest score - - which is related to the number of times the 
initial was POKEd into the screen - - is the winner. Enter two 
graphical characters, instead of letters, if you just want to create 
pretty patterns. This program runs in 1K on a ZX80. 


10 ҺЕТ 411 - 0 
20 LET 5 = 0 
30 LET Т = 0 


40 LET B = 0 

50 INPUT Ag 

60 LET А = CODE(Ag) + 128 
70 INPUT B$ 

80 LET Bl = CODE(BS) + 128 
90 FOR M = 1 TO 12 

100 PRINT ,,,, 

110 NEXT M 


120 LET C = RND(6) 

130 LET D = RND(16) 

140 LET Q = RND(4) 

150 IF Q = 1 THEN LET Z A 

160 IF Q l THEN LET S S + 1 
170 IF Q 2 THEN LET Z B1 
180 IF Q = 2 THEN LET T = T + 1 
190 IF Q > 2 THEN LET Z = O 

200 LET E = 12 - C 

210 LET F = 32 - D 

220 LET L = (C - 1)*33 + D 

230 LET G = (E - 1)*33 + D 

240 LET J = (C - 1)*33 + F 

250 LET К = (F - 1)*33 + F 

260 GOSUB 340 

270 POKE B + L, Z 

280 POKE B + G, Z 

290 POKE B + J, Z 

300 POKE B + K, Z 

310 INPUT 29 

320 IF NOT Z8 = "" THEN GOTO 380 
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330 GOTO 120 

340 LET Al = PEEK(16397) 

350 IF Al > 127 THEN LET Al = 
Al - 256 


360 LET B = PEEK(16396) + 
A1*256 

370 RETURN 

380 PRINT ,CHRS(A);S,CHRZ(B1);T 


DEVON DEMON 


Pawn moves in chess, and non-capture moves in draughts in- 
spired this game, which holds the board and state of play in the 
first REM statement. The computer makes its decisions by 
PEEKing into this REM statement. Lines 21 and 23 rePOKE the 
board into the first REM statement (from the second REM 
statement) at the start of each game. The question mark in line 
20 is replaced by an X in line 10 ( it is POKEd into position by 
line 36). If there was an X in the place of the question mark in 
line 20, the ZX80 would read it, from time to time, as though 
it was a valid capture ( and you'd find the ZX80 happily captur- 
ing an invisible piece, out of sight off the board). 


You play the game on a 6 x 6 grid (whereas draughts and chess 
are, in effect, played on an 8 x 8 grid. You each have six men at 
the start of the game. You are the X's , and the ZX80 is the 
O's ( and note that these are the letter O, not zero). 


You move in a diagonal direction only, as in draughts, but you 
can move forward or backward as you choose, so long as you 
remain on the diagonals. You capture an opponent's piece by 
landing on top of it. The first player to capture four of the 
opponent's pieces wins. 


The computer always has first move. You move by entering the 
square letter and number of the piece you want to move, then 
the letter and number of the square you're moving to, and then 
press NEWLINE. That is, you enter the “square from” and the 
"square to'' before you press NEWLINE. 


To convert the program for the ZX81, change the question 
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mark in line 20 into an X, and change the two numbers in line 
21 into 16562 and 16598. The 40 in line 22 becomes a 48, and 
Z (in line 26) is set equal to 16513. Add one to each subscript 
in lines 28 to 31, and delete line 36. You'll need to add INT 
in line 80, so the start of the line reads IF 6*(INT(C/6)). . .etc. 
Тһе TL3 т lines 134, 136 and 138 should be replaced by A$ 
(2 TO), and, of course, you'll need to change the way the 
random number is generated in lines 340 and 352. 


10 REM 36 fullstops 
20 REM .?.X.XX.X.X l4fullstops О.О.ОО.О 


.O. (letter O, not zero) 


21 FOR K = 16467 TO 16509 

22 POKE K - 40, PEEK(K) 

23 NEXT K 

24 LET N = Q 

25 LET S = O 

26 LET Z = 16426 

27 DIM B(4) 

28 LET B(0) = - 7 

29 LET B(1) = 5 

30 LET B(2) = 7 

31 LET B(3) = - 5 

34 LET K = Q 

36 POKE 16428, 61 

40 GOTO 330 

50 PRINT 

55 PRINT "ZX80 - ";N,"HUMAN - ";5 
60 PRINT 

70 FOR C = 1 ТО 36 

75 PRINT CHRg(PEEK(7 + C));" "; 
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80 IF 6*(C/6) = C THEN PRINT СНЕ 


(C/6 + 37) 
85 NEXT C 
90 PRINT "12 3 4 5 6" 
95 RETURN 


120 GOSUB 50 

130 PRINT ,"YOUR MOVE?" 
131 INPUT Ag 

132  CLS 
133 LET Dl 


l 


6*CODE(Ag) - 38 
TL£(A$) 
135 LET D = Dl + CODE(A$) - 218 


134 LET 


ы 
% 
I 


136 LET Ag = TL$ 


137 LET El 6*CODE(Ag) - 38 

138 LET АЯ = TL$ 

139 LET Е = El + CODE(A$) - 218 

150 IF PEEK(E + Z) = 52 THEN LET S = 
S + 1 

155 POKE D + Z, 27 

160 POKE E + Z, 61 

170 GOSUB 50 

175 PRINT "PRESS N/L FOR MY MOVE" 

176 INPUT 08 

177 IF Ug - "S" THEN STOP 

178 CLS 

180 IF S - 4 THEN GOTO 410 


190 LET K = 0 
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250 
260 
270 


280 


290 
300 
330 
340 
342 
350 


352 


355 


FOR F = 1 TO 36 
FOR M = 1 TO 4 


IF PEEK(F + Z) = 52 AND PEEK 

(F + Z + B(M)) = 61 THEN LET 

N = N +] 

IF PEEK(F + Z) = 52 AND PEEK 

(F + Z + B(M)) = 61 THEN GOTO 
340 


NEXT M 
NEXT P 

LET M = 1 

LET F = RND(36) 


LET K = K + 1 

IF PEEK(F + Z) = 61 OR PEEK 

(F + Z) = 27 THEN GOTO 340 

IF RND(10)> 2 AND M < 3 THEN 
LET M = 5 - RND(4) 

IF (F = 6 OR F = 18 OR F = 30) 
AND (M = 2 OR M = 3) THEN 
GOTO 370 
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357 IF (F = 31 OR F = 19 OR F = 


7) AND (M = l OR M = 4) THEN 


GOTO 370 

360 IF PEEK(F + Z + B(M)) = 27 AND 
PEEK(F + Z + 2*B(M)) = 61 THEN 
GOTO 430 


370 LET M = M + 1 

375 ІР M < 5 THEN СОТО 355 
400 IF K < 200 THEN GOTO 330 
410 PRINT "YOU WIN" 

420 STOP 

430 POKE F + Z, 27 

440 РОКЕ F + Z + B(M), 52 
450 ТЕ М = 4 THEN GOTO 500 
460 GOTO 120 

500 GOSUB 50 

510 PRINT "I WIN" 


ZBUG 


The ZBUG hides on a nine by nine grid, and your ZBUG 
detector (see line 110) gives you clues to move in for the kill. 
You have an unlimited number of goes to find it, but the score 
you get (line 170) is related (inversely) to the number of goes 
you took - - that is, the longer it takes, the lower your score. If 
you want to give up at any stage, enter H (for HELP) instead 
of your guess. You enter your guess as two numbers (the co- 
ordinates) before pressing NEWLINE. Lines 70 and 80 strip 
your guess (which is entered as a string) into two separate 
numbers. For the ZX81 change the TL$ in line 80 to D$ (2 TO) 
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or work out a different way of accessing the information, using 
the ZX81's character arrays. 


10 LET A = RND(9) 

20 LET B = RND(9) 

30 LET C = 1 

40 PRINT "ZBUG IS HIDING. SEARCH ";C 

50 INPUT D$ 

60 IF 5*(C/5) = C AND NOT Dg = "H" 
THEN CLS 

65 ІР D$ = "Н" THEN СОТО 150 

70 LET D = CODE(D$) - 28 

80 LET Е = CODE(TLS(A$)) - 28 

90 IF A = D AND B = E OR A = E AND 


B = D THEN GOTO 140 
100 PRINT D;" ";Е;" - NOT THERE" 
110 PRINT "ZBUG DETECTOR READS "; 
lO*(A -D) + B - E 


120 LET C = C + I 
COPY CLEAR CONT CLS 
? 
ПЕШ 
LN fav A! 


130 GOTO 50 


NEXT PAUSF BAI AK 


« » £ 
Monn 
NIT n 


SCROLL 


IN KEYS 


140 PRINT "YOU FOUND IT" 


150 PRINT A;" ";B 
160 IF Dg = "н" THEN STOP 
170 PRINT "you SCORED "; 300 - 9*c 
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STAR-SHINE 


The 1K ZX80 thinks of a number in the one to 100 range, and 
then challenges you to guess it, responding to your guesses with 
a number of stars. The more stars you get, the further away you 
are from the correct number. The program records your worst 
game. If you want to give up, enter H (for help ) instead of your 
guess. The program will then reveal the number the ZX80 was 
thinking of. 


10 LET Z = O 
20 LET H = 0 
30 LET A = 1 
40 LET B = RND(100) 
50 PRINT "I AM THINKING OF 
A NUMBER” 
60 PRINT "ENTER GUESS ";А 
70 INPUT C 
80 CLS 
90 IF C = B OR C = H THEN GOTO 200 


100 LET E ABS(C - B) 
110 PRINT "SORRY, ";C;" IS WRONG" 
120 PRINT 


130 LET A A + 1 


140 PRINT "HERE IS A CLUE:" 

150 FOR D = l TO -7*(E > 64) - 6* 
(E <65 AND E ? 32) - 5*(E < 33 
AND Е > 16) - 4* (Е < 17 AND 
E» 8) - 3%(Е < 9 AND Е > 4) 


- 2*(Е < 5 AND E > 1) - (E = 1) 
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160 PRINT (fee Me 

170 NEXT D 

180 PRINT 

190 GOTO 50 

200 CLS 

210 IF C = H THEN GOTO 230 

220 PRINT "YES, WELL DONE" 

230 PRINT "I WAS THINKING OF ";B 

240 IF C = H THEN GOTO 270 

250 PRINT "IT TOOK ";A;" GUESSES" 

260 IF A » Z THEN LET Z = A 

270 PRINT "YOUR WORST GAME TOOK "; 
Z;" GUESSES" 

280 INPUT Ug 

290 CLS 

300 IF Ug - "" THEN GOTO 30 


CONVERTING 
PROGRAMS 


Many, many programs written in ZX80 BASIC, and indeed in 
other dialects of BASIC, can be converted fairly easily into 
ZX81 BASIC. Programs which demand PEEKs and POKEs can 
be somewhat more difficult. 


You'll find that although it is much harder to fit a worthwhile 
program into 1K on the ZX81 than it is on the ZX80, many 
programs are much more effective on the '81, with the en- 


hanced, flicker-free display, and the additional commands such 
as INKEYS. 
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As a general rule, make sure you add the function INT, before 
a division. An old ROM program always INTs anyway, so the 
program probably assumes that this has been carried out. So if 
the ZX80 program says LET A= 9/2*B this should be written 
as LET A=INT (9/2*B) for the new ZX81/new ROM. Certain 
things on the ZX81, such as the TAB and PRINT AT commands 
carry out the INT automatically, so it can be ommitted in this 
case. You'd find, for example, that PRINT TAB PI would give 
the same result as PRINT TAB 3. 


The first address after the word REM in the first line of ZX80 
program is 16427, a number which should be familiar to you 
from programs which use REM statements as storage areas. 
The equivalent address on the ZX81 is 16514, and a table is 
given which will help you convert these numbers within 
programs. 


As you know from playing with the ZX81, all the graphics 
symbols, and inverse letters, numbers, the space and so on,are 
available direct from the keyboard, so you don't need to use 
CHR&(n) as you often need to with old ROM programs. The use 
of inverse graphics in PRINT statements can be used to improve 
the appearance of many programs. If you need to convert the 
others, use the following table: 


SHIFT Q, GRAPHIC 5; SHIFT M, GRAPHIC 6; 
SHIFT E, GRAPHIC l; SHIFT R, GRAPHIC 2; 
sHIFT T, GRAPHIC D; SHIFT A, GRAPHIC A; 
SHIFT Š, GRAPHIC T; SHIFT D, GRAPHIC A; 
SHIFT F, GRAPHIC 3; SHIFT 6, GRAPHIC Š, 


The Т1% function on the old ROM can be replaced on the new 
ROM with (2 TO), in the following form. If you had an old 
ROM program which said LET AS = TLS(AS) you would 
replace this for a new ROM/ZX81 program with LET А$ = 
(2 TO). 


The TAB function (which must be followed by a semi - colon) 
puts a number of spaces before the material to be printed. 
That is, TAB 5; "W'' would print five spaces, then the letter W. 
This takes the place of the following old ROM loop: 
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10 FORJ=1TO5 


20 PRINT” '* 
30 NEXT J 
40 PRINT “W” 


The code to get a random number on the old ROM, LET A 
RND(10), is replaced on the new ROM with LET A = INT 
(RND*10) + 1. 


There are a number of things you can do to get the most prog- 
ram possible into 1K. 


SYSTEM VARIABLES: The system variables take up 125 bytes 
of the 1K on the ZX81, whereas they only consumed 40 bytes 
on the ZX80. This is partly because of one or two additions 
like RAMTOP and NXTLIN, and because 16417, 16507 and 
16508 are simply not used, but mainly because of two mega- 
System-variables PRBUFF (which takes up 33 bytes) and 
MEMBOT (which uses up a further 30 bytes) You can use 
PRBUFF to store information provided you don't clear it by 
using LPRINT. In fact, if your characters are in the range O- 
63 or 128-191 then you can put the information there in the 
first place by using LPRINT. 


LINE NUMBERS: The existance of a line of program on the 
old ROM takes three bytes to store, two for the line number 
and one for NEWLINE at the end of the line. The new ROM/ 
ZX81 takes five bytes rather than three, since it uses another 
two to store the length of the line. 


NUMBERS. Numerical constants such as 0, 1, or 123.456789 
(but NOT PI) take up the number of digits you can count,in- 
cluding the decimal point if there is one, PLUS SIX. This is 
because a numerical constant in mid-program is immediately . 
followed by a special character (126) which is followed by 
five bytes of data (the number itself in a form the ZX81 can 
use). None of these six extra bytes appears in the listing. Thus 
LET P-1 occupies a total of fifteen bytes. (It would have 
taken seven on the OLD ROM.) However, if you use the letter 
P instead of the digit 1 throughout the rest of the program you 
save five bytes each time, so if you're going to use the number ` 
1 more than three times in your program it makes sense to 
assign it to a variable at the start of the program. In fact you ' 
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can shorten things even more by saying something like LET P 
=VAL”1” or LET P=PI/PI, which take twelve and eleven bytes 
respectively. (Although you'll need calculating space for this. 
If your program takes up so much space there's no room left 
for a simple division then it's too long.) Zero is used rather 
frequently too, and can be replaced by РІ-РІ or P—P. Two 
is P+P. 


THE DISPLAY FILE. It is possible to fill the screen up com- 
pletely, but only just! The program 1 PRINT "'inverse asterisk"; 
2 RUN will give you a completely full screen, but unfortunately 
you can't do anything with it. Type POKE 16389,77 as a direct 
command, and then type CLS as a direct command - this will 
give you a permanently full screen. Now try typing in a program 
to see how much room is left - you'll be quite shocked! 


VARIABLES. Numeric variables occupy five bytes each plus 
the number of characters in the name of the variable. On the 
old ROM it only took two bytes plus the name. An array such 
as A(N} took 2xN 4 bytes on the old ROM, but 5% М 6 bytes on 
the new. Strings only use one extra byte (unless you dimension 
them, in which case they use four extra bytes!) 


16420 and 16421 store the column and line numbers for the 
PRINT position. If you just want to PEEK them then you can 
simply use PEEK 16441 and PEEK 16442 respectively. This 
causes no problems. However, on the OLD ROM the instruct- 
ions POKE 16421, 24 is sometimes used to remove the err 
` code from the screen. If you tried to do the same thing on the 
NEW ROM by POKEing 16442 I'm afraid you wouldn't have 
much luck. However you can remove the error code by a com- 
pletely different means. First of all you must ensure that your 
program is in FAST. mode. This done, simply make the LAST 
LINE of your program LET L=. USR 681. The program will 
stop, displaying no error code. The next key you press will 
be interpreted as a KEYWORD. 


Another point is the difference between the old and the new 
frame counter. On the old ROM it would count forwards so 
that if you reset it to zero you could PEEK it later and use it 
for timing. On the new ROM, however, it counts backwards,so 
that if you reset it to zero it will start off at 65536 and DEC- 
REASE once every TV frame. Also, it will only count down to 
32768; it won't ever actually get to zero. When you see the old 
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м 


ROM phrase PEEK(16414)4256*PEEK(16415) then the 
corresponding new ROM phrase is 65536 — PEEK 16536 —256 
*PEEK 16437. 


OLD NEW OLD NEW 
16384 16384 16405/6 16408/9 
16385 16385 16407/8 16427/8 
16386/7 16391/2 16409 16429 
16388/9 see below 16410/1 16432/3 
16390/1 16394/5 16412/3 16434/5 
16392/3 16400/1 16414/5 
16394/5 16404/5 16416/7 see below 
16396/7 16396/7 16418/9 see below 
16398/9 see below 16420 see below 
16421 see below 
16400/1 see below 16422/3 16406/7 
16402 16418 16424/5 16509/10 
16403/4 16419/20 16426 16513 
16427 16514 


16388/9 is the position in RAM of the cursor during the last 
INPUT or EDIT. There isn't really any way of finding this out 
on the NEW ROM, however, it's something you're very very 
unlikely to come across. Certainly I've never seen any programs 
which use it. 16398/9 is a different story. It can be emulated 
fairly easily, but you have to use a different means depending 
on whether or not you have 16K plugged in. If you have, then 
the OLD ROM value of PEEK (16398)+256xPEEK(16399) is 
on the NEW ROM: 


PEEK 16400+256x PEEK 16401—33x PEEK 16418. Other- 
wise use the very slightly shorter expression PEEK 164004256 
x PEEK- PEEK 16418. 


The variable A will then contain the required value. On the 
OLD ROM the value PEEK(16400)+256x PEEK(16401) can be 
used in two different contexts. Firstly is the end of the display 
file, and secondly as the end of used memory. For the first case 
use 16400/1, and in the second case use 16412/3. The actual 
value of the OLD ROM expression PEEK(16416)+256x PEEK 
(16417) can be found on the NEW ROM by use of the express- 
ion PEEK 16406+256x PEEK 16407-14, however you can't 
use this result in the one solitary routine which needs it — this is 


107 


a selective NEW routine which will work only on the OLD 
ROM, but can't work on the NEW because the memory organ- 
isation is completely different. 


The routine is: 


LET A=PEEK(16416) 
POKE 16392,А-3 

POKE 16393,PEEK(16417) 
CLEAR 


which when inserted at any point in the OLD ROM program 
and RUN from that point will NEW the program from that 
point on, leaving all preceeding lines completely untouched. 
it can be given one useful job though-if at any point in your 
program you insert the lines PRINT PEEK 16406+256x PEEK 
16407—21 followed by STOP and then RUN the program from 
that point will be given the address of the LAST character in 
the preceeding line. 16418/9 is the value of the last expression. 
In the NEW ROM numbers need five bytes, not two. If you 
LET MEM=PEEK 16415+256x PEEK 16416 then the value 
of the last expression will be stored in locations MEM/MEM+ 
1МЕМ+2/МЕМ+3/МЕМ+4. 


THE CALCULATOR STACK. This is а new feature which the 
OLD ROM never had because it was never actually needed 
(because of integer arithmetic). However because numbers on 
the NEW ROM take five bytes each then calculating space is 
needed. Every number that is used in an individual calculation, 
and also every intermediate result, is temporarily stored on the 
stack. If you can eliminate the number of intermediate results 
(e.g. by using less brackets if possible) then you will save a small 
amount of space. 


TESTING. Here are some tests to find out how much memory 
you have left. These should be used as direct commands. 


PRINT PEEK 16396 256xPEEK 16397—16509 
The number of bytes occupied by the program, ignoring var- 
iables etc. 


PRINT PEEK 16404 256x PEEK 16405—16509 


The number of bytes occupied by the program plus variables 
as they stand, plus the number of bytes in the empty screen 
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(25). If used in mid-program it will include the number of 
bytes currently occupied by the screen. 


PRINT PEEK 16404 256xPEEK 16405—16384 
The number of bytes occupied by the system variables, the 
program, the screen, and the variables. 


PRINT PEEK 16386 — PEEK 16412 256x(PEEK 16387— 
PEEK 16413)—50 

A rough idea of the number of bytes you have LEFT in which 
to work. 


EDIT AND THEN TO < с> GRAPHICS RUBOUT 
D 63 
AT UND, гт кем RN BRANI RET:RN IF INP aT POr f PHIR" 

STEP <= <> >= ( ) 
Е РЕВ "ET oBY = | 0 
Si Gus TAN INT BRNO STARS CHAS CODE Гуч ТАН 
Most of this information is probably not very useful. After all 
who wants to know WHY saving space is difficult, rather than 


how to do it? So here in brief is a quick guide on how to cut 
down your byte—count, hopefully into 1K; 


1) POKE information into the system variable if you want 
it stored, rather than into REM statement. Safe ones to 
use are VERSN, E—PPC, X—PTR, 16417, S—TOP, OLD 
PPC, SEED, PR—CC, PRBUFF, 16507, 16508. 


2) Streamline your programs so as to use as few a number of 
lines as possible. 


3) Use variables in place of numerical constants whenever 
that number is used more than three times in the program 
(or ALL THE TIME if you save the variables and use 
GOTO 1 instead of RUN.) 


4) Print all of your pictures and messages at the left hand 
edge of the screen. 


5) Don't dimension strings unless you have to. 


6) Minimise the number of intermediate results needed in 
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calculations, e.g. A/(Bx C) has one intermediate result, 
whereas A/B/C, which has the same effect, has none. 


A final tip — on the OLD ROM the expression USR(47)— 
16426 would give you a measure of how many bytes your 
program occupied. On the NEW ROM putting PEEK 16396 
+256x PEEK 16397—16509 will give you the number of bytes 
in your program, and PEEK 16404+256x PEEK 16405—16509 
will give the number of bytes in the program plus screen plus 
variables. 


COMP STORE 


This is a one-armed bandit with most unusual reels, featuring 
very odd fruit. It is self-explanatory. Just press RUN, then 
NEWLINE, and you're away. As is obvious, you only need 1K 
on a ZX80 for this one. 


10 RANDOMISE 

20 LET M = 20 

30 LET A = 0 

40 LET B = 0 

50 LET C = 0 

60 CLS 

70 FOR H = 1 TO 8 
80 PRINT 

90 NEXT H 


100 PRINT , 

110 FOR D = 1 TO 3 

120 LET E = RND(3) 

130 IF E > 1 THEN GOTO 150 + 10*Е 
140 LET A = A + 1 

150 PRINT "RADIO SHACKspace"; 
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160 
170 
172 
175 
180 
182 
185 
190 
200 
210 


220 


230 
240 
250 
260 
270 
280 


290 


300 
310 
320 
330 


GOTO 185 

LET B = B + 1 

PRINT "АРРІЕѕрасе"; 
GOTO 185 

LET C = C + 1 

PRINT "VICspace"; 
NEXT D 

PRINT 

PRINT 


IF A = 3 OR B 


GOTO 380 

IF А = 1 AND B = 1 AND C = 1 
THEN GOTO 420 

LET M = M - 1 

PRINT 

PRINT 

PRINT,"YOU LOST THAT TIME..." 
PRINT 

IF M » 49 THEN PRINT "YOU HAVE 
BROKEN THE BANK" 

IF M < 1 THEN PRINT "YOU ARE 
BROKE" 


PRINT ,STAKE:space";M 
IF M < 1 OR M > 49 THEN STOP 
PRINT 


PRINT ,"N/L FOR NEXT SPIN" 


3 OR C = 3 THEN 


340 INPUT A8 

350 FOR G = 1 TO 200 

360 NEXT G 

370 GOTO 30 

380 PRINT ,"THREE OF À KIND..." 

390 PRINT ,"YOU WIN 5" 

400 LET M = M + 5 

410 GOTO 270 

420 PRINT ,"two space”;CHRg(175);/ 
CHR£(166);CHR£(168) ;CHR2(176); 
CHR (181) ;СНКЯ (180); СНБЯ (185) 

430 LET М = M + 10 


440 GOTO 270 


ETCH-A-SKETCH 


This program, written for a 1K ZX80, gives you most of the 
screen to work in, and allows you to POKE designs of your 
choice. When you run it, the computer will ask you to enter 
two numbers. These are your starting co-ordinates. The first 
one is the horizontal co-ordinate (3 to 29) and the second one 
(counting down from the top) is the vertical co-ordinate (2 to 
15). Once you've entered these, the screen will go blank for a 
short time, and then reappear, with a grey dot (shift A) at the 
position you specified. You use the keys 5, 6, 7 and 8, pressing 
them before NEWLINE to move the dot in the direction of the 
arrows on those keys. If you wish to continue in a set direction, 
just keep pressing NEWLINE. You only need to touch a 
direction key first if you wish to change direction. 


If you wish to turn the blob off, either to erase a part of the 
design you've drawn (just move it backwards over your line) 
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or to move it to another part of the screen to start drawing 
there, enter @ instead of an arrowed direction. Pressing zero 
again will turn the blob on. 


Once you've run this program for a while, you might like to try 
and modify it to give you diagonals as well as horizontal and 
vertical lines. 


10 
20 
30 
40 
50 


60 
70 
80 


90 
100 
110 


120 


130 
140 
150 
160 
170 
180 


GOSUB 140 


FOR G 
PRINT 


NEXT G 


1 TO 16 


Fre 


POKE Y*33 + X + 1 + PEEK(16396) 


+ 256*PEEK(16397),K 


LET Pg Ag 

INPUT АЯ 

IF Ag = "0" THEN LET K = 0* 

(K = 9) - 9*(K = 0) 

IF Ag = "S" THEN STOP 

IF Ag = "" THEN LET АЗ = Pg 

LET X = X + (CODE(Ag) = 33 AND X > 2) 
- (CODE (A$) = 36 AND X < 30) 

LET Y = Y + (CODE(A$) = 35 AND X > 0) 
- (CODE(Ag) = 34 AND X < 15) 

GOTO 50 

INPUT X 

INPUT Y 

LET K = 9 

LET Ag "n 


RETURN 
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BOUNCE-A-PIC 


This is a fun version of ETCH—A-—SKETCH, which draws lines 
under your direction (using, of course, 5,6,7 and 8) from a 
dancing, bouncing cursor. The cursor starts off in the top left 
hand corner of the screen but you can easily change this if you 
like by changing the zero in the first line. The program fits a 


1K ZX81. 
10 LET X = O 
20 LET N = X 
30 LET Y = X 
40 LET M = X 
50 PRINT AT M,N;"your own choice 
of graphic, start with a full stop" 
60 PRINT AT Y,X;"graphic 1” (that is, the 
graphic available from key l) 
70 PRINT AT Y,X;"graphic 2" 
80 PRINT AT Y,X;"graphic 3" 
90 PRINT AT Y,X;"graphic 4" 
100 LET M = 
110 LET N = X 
120 LET X = X + (INKEYg = "8" AND X 
< 29) - (INKEY$8 = "5" AND X > 2) 
130 LET Y = Y + (INKEY$ = "6" AND Y 
< 18) - (INKEY$ = "7" AND Y > 2) 
140 GOTO 50 


BOWLING ALLEY 


A 10 - pin bowling alley is shrunk to the measure of a 1K ZX80 
in this game. The program prints out the pins before each ball 
is bowled, and automatically computes your score. There are 10 
frames to a game, and two balls per frame. If you knock down 
all 10 pins with the first ball in a frame ( a strike ), you get a 
bonus of 30. Knocking all 10 pins down with the two balls of a 
frame gets you a bonus of 15. Otherwise, each pin is worth one 
point. You may like to play with the display (lines 150 to 180) 
to change the appearance of the pins. 


10 DIM A(9) 

20 LET Y = O (highest score) 

30 LET S = 0 (score this game) 

40 FOR B = 1 TO 10 (counts games) 

50 FOR E = 1 TO 2 (counts balls) 

60 PRINT "FRAME ";B,,"BALL "; CHR$ 
(E * 156) 

70 PRINT 

80 LET Z = 0 (score this frame) 

90 FOR C = 0 TO 9 


100 IF E- 2 THEN GOTO 120 
110 LET A(C) = 52 


120 IF A(C) = 52 AND RND(2) = 1 THEN 
LET A(C) = 220 
130 IF A(C) = 220 THEN LET Z = Z + 1 


140 NEXT C 
150 PRINT ,CHRS8(A(9));" ";CHR£(A(8)); 
" "IZCHR$(A(7));" ";CHR£(A(6)) 


160 PRINT ,"singlespace" ; CHRS(A(5)); 
" ";CHRÉ(A(4));" ";CHRZ(A(3)) 

170 PRINT ,"twospaces";CHR$g(A(2));" "; 
CHR$2(A(1)) 

180 PRINT ,"threespaces";CHRS(A(0)) 

190 PRINT 

200 PRINT 

210 PRINT "SCORE THIS FRAME IS ";2 


220 IF E 


1 AND Z = 10 THEN GOTO 370 


230 IF Z > 9 THEN LET Z 15 


240 IF E 


li 


2 THEN LET S S + 1 


250 PRINT "SCORE SO FAR ";S 

260 INPUT 08 

270 CLS 

280 NEXT E 

290 NEXT B 

300 PRINT "SCORE FOR THAT GAME WAS ";S 
310 IF S < Y THEN GOTO 330 

320 LET Y = S 

330 PRINT "HIGHEST SCORE SO FAR ";Y 
340 INPUT 08 

350 CLS 

360 GOTO 30 

370 PRINT "STRIKE" 

380 LET Е = 2 

390 LET S = S + 15 

400 GOTO 230 
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GRAFFITI 


This program, which runs on a 1K 2Х80, fills the screen with 
large letters. You can fit a 32 letter message onto a 1K machine, 
four lines of eight characters each. You enter your message 
eight characters at a time. If you'd like an inverse letter, say A, 
enter it as NOT A.This still counts as one character. To get a 
quote mark in your message, enter shift H (**). 


10 REM %00504850782868606080287058485801914111 
$59121514159f 1161718 f14rE 

50 FOR I=ñ TO 33 

4f POKE 164211, L6mPERK( 16427421 )+PEEK(1642842u1 }+36 

5# NEXT I 

6# POKE 16457,118 


RUN this, then enter: 


2$ INPUT ag 

36 POKE 16421,24 

48 IF Afa"" THEN STOP 

5f FOR Iafi TO 3 

68 LET Cag 

78 FOR J=1 TO 8 

ӘЙ LET хай 

W LET CeC+1 

1ff LET L=PEEK(16719+C) 

110 IF L-219 THEN GO TO 148 

126 LET Ха128 

138 со TO 9f 

148 IF L>99 THEN LET L»PEEK(16227«L) 

150 FOR Кеў TO 3 

168 PRINT CHRÉ( PEEK(164274 ( ( РЕЕК( 2uI* BuL43584) 
/Axx(5-K) AND 5)&(PEEK(2x1& Әжі, 
*5585)/4»-x(5-K) AND 3)m4))tX); 

176 NEXT K 

186 NEXT J 

19$ NEXT I 

288 RUN 
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CROSSKILL 


You must enter this EXACTLY as listed, and in the FOLLOW- 
ING ORDER, or it will not work. WARNING: Do not type 
LIST or HOME. LIST 2 is OK. If you accidentally hit LIST, 
then press NEWLINE, then type LIST 3000. You won't see 
anything on the screen while typing this. Then hit NEWLINE 
again. If you accidentally enter HOME, then press RUBOUT 
repeatedly until you are sure that the current line is completely 
erased (you won't be able to see what's happening). Then type 
LIST 3000 and NEWLINE. 


1 REM Ff32f0DE361062//0626220620006A TOPP ppp 10g Ed LEE 2 
APPEB2 BÀ 122 ABO TT2 Ag 
T9ffdoeegiggiggork 
18 PRINT "1234 space" 
2$ PRINT "A space ОООА" 


50 PRINT "BB" 
4f PRINT "CC" 


(these are letter O's, not zeroes) 


59 PRINT "D space D" 
6$ PRINT "space 1234" 


TÉ LET Х*16518 


8f FOR 1-1 TO 6 


W LET X=X+1 


188 IF PEEK(X)-1 THEN GO TO 9f 


110 LET X=X+1 


120 IF PEEK(X)-1 THEN GO TO 158 
13$ POKE Х,РЕЕК(Х)%128 


14$ co то 11) 
158 NEXT I 


168 FOR Ief TO 4f 
176 POKE 16426+I,16xPEEK(16427+2xI) 
+ PEEK(16428* 2x1)*26 


18$ NEXT I 


19) POKE 16463,118 


2060 PRINT 
21# PRINT 
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RUN 


2 POKE 17167,189 


using EDIT, alter lines 1/,30,4f, and 50 as follows: 
16 PRINT "Space inverse l inverse 2 inverse 3 
inverse 4 inverse space" 
36 PRINT "inverse B shift A shift A 
shift A shift A inverse B" 
48 PRINT "inverse C shift A 
Shift A shift A shift A inverse C" 
5É PRINT "inverse D 000 inverse space inverse D" 


18 IF RND(2)=2 THEN GO TO 186 
80 LET X=1 

98 GOSUB 19% 

100 LET TsB(2) 

11g cosus 2000 

120 IF А<5 THEN СОТО 186 


13$ LET T=NOT (((B(2) AND 4 92)«8 AND 50576) 
OR ((B(2) AND 1$23)w32 AND 28384) 

14) GOSUB 2988 

158 IF А<5 THEN GO TO 180 

16) LET T=NOT B(1) 

176 GOSUB 2006 

180 INPUT ag 

190 LET F*196-4xCODE( Ag )-CODE(TLA( Ag) ) 

20) LET AÉ#=TL#(TIZ(TLZ(AZ))) 

218 LET G*196-4xCODE( AŽ )-CODE(TLA( Af) ) 

228 LET X=2 

236 GOSUB 5000 

248 GBTO 8d 


1888 LET X(1)*B(X)/8 AND 3822 
1010 LET X(2)-B(X)/32 AND 1918 
1020 RETURN 


2900 LET A-f 


2918 LET C=RND(2) 
2020 LET A-A*1 


119 


236 LET C=3-C 

2046 LET K=X(C) AND T 

2658 IF K THEN GO TO 2888 

2868 IF A=3 THEN RETURN 

2676 co то 2828 

2$8$ LET R*RND(14) 

2898 IF (K AND 2ж8)=Й THEN GO TO 2080 
2188 LET FeR+l+2aC 

2116 LET G-R 

2128 LET X=1 


3826 LET B(X)*B(X) AND (2xxF) OR 2xwG 
361) LET B(3-X)=B(3-X) AND NOT 2xwG 


3g2$ POKE 17221 (1277 AND 5 5 /4)*1,9 
3838 POKE 17221 


15-G AND 5 
52 (X*1 AND 128) 


(15-С /4 #7, 


5649 ІР(В(1) AND 52752)*f OR (B(2) AND 4g94)-f 


THEN STOP 


5858 RETURN 


То imput a move enter, for example, “D3 TO C2", where TO 
is the keyword TO obtained by holding down shift and press- 
ing 4. 


Pieces may only move diagonally forward. 


To capture you must land on top of an enemy piece. 


The game ends in one of four circumstances: 


1) 
2) 
3) 


4) 
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All of your pieces have been wiped out. In this case the 
computer wins. 

All of the computer's pieces have been wiped out. In this 
case you win. 

You move to such a position that you will not be able to 
make a legal move next go (i.e. all of your remaining pieces 
are at the far side of the board). In this case you are the 
winner unless the computer has more remaining pieces 
than you, in which case it wins. 

The computer moves to such a position that it will not be 
able to make a legal move next go (i.e. all of its remaining 
pieces have reached your end of the board). In this case 
the computer is the winner unless it has less remaining 
pieces than you, in which case you win. 


EDUCATION 


This section of the book, primarily designed for the ZX81, 
although many of the programs will run on the ZX80 (and a 
few are ZX80 only), is intended to give an idea of the wide 
range of ways the ZX computers can be applied. 


They demonstrate how simple programs can be developed 
around commonly-used formulae, and should give teachers 
ideas for problems to set when using the ZX80 or ZX81 in the 
classroom. 


LENGTH OF SIDE OF A RIGHT-ANGLED 


TRIANGLE 

10 INPUT Y (side one) 

20 INPUT Z (Side two) 

30 PRINT "THIRD SIDE IS ";SQR(Y*Y 
+ 2*2) 


AREA OF A TRIANGLE 


10 INPUT À (side one) 

20 INPUT B (side two) 

30 INPUT C (side three) 

40 LET D - (A * B * C)/2 

50 PRINT "THE AREA IS ";SQR(D*(D-A)*(D- 
B)*(D-C)) 


CIRCUMFERENCE OF A CIRCLE 

10 PRINT "ENTER RADIUS" 

20 INPUT R 

30 PRINT "CIRCUMFERENCE IS ";2*PI*R 
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AREA OF A CIRCLE 


10 PRINT "ENTER RADIUS” 
20 INPUT R 
30 PRINT "AREA IS ";R*R*PI 


AREA OF A SECTOR OF A CIRCLE 


10 PRINT "ENTER RADIUS" 

20 INPUT R 

30 PRINT "ENTER ANGLE" 

40 INPUT A 

50 PRINT "AREA OF SECTOR IS ";A/360 
*PI*R*R 

VOLUME OF A CONE 

10 PRINT "ENTER RADIUS" 

20 INPUT R 

30 PRINT "ENTER HEIGHT” 

40 INPUT H 

50 PRINT "VOLUME IS ";PI*R*R*H/3 

SURFACE AREA OF A TANK 

10 PRINT "ENTER DIAMETER" 

20 INPUT D 

30 PRINT "ENTER HEIGHT" 

40 INPUT H 

50 PRINT "AREA IS ";((D/2)**2)* 


PI*2 + PI*D*H 
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SURFACE AREA, 


"ENTER RADIUS” 


R 


"SURFACE AREA IS 


R**2*4* PTI 


10 PRINT 
20 INPUT 
30 PRINT 
40 PRINT 


"VOLUME IS 


AREA OF A RECTANGLE 


10 INPUT 
20 
30 PRINT 


L (length) 
INPUT B (breadth) 


"AREA IS 


LENGTH OF PERIMETER 


10 INPUT 
20 INPUT 
30 PRINT 


VOLUME OF A 
10 PRINT 
20 INPUT 
30 PRINT 


L 


B 


"PERIMETER LENGTH IS 


CUBE 


". 
4 


" 


VOLUME OF A SPHERE 


А 


";4/3*РТАЕ**3 


L*B 


";2*(1 + B) 


"ENTER LENGTH OF SIDE" 


L 
"VOLUME IS 


"SL**3 
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SINES 


10 INPUT A (lowest) 

20 INPUT B (highest) 

30 FOR D = A TO B 

40 LET R = D*PI/180 (changes radians 
to degrees) 

50 SCROLL 

60 PRINT "SINE ";D;" IS ";SIN R 

70 NEXT D 

TEMPERATURE CONVERSION 

10 INPUT A (highest temp. in F) 

20 INPUT B (lowest) 

30 INPUT C (step) 

40 FOR T = B TO A + C STEP C 

50 LET M = 5*(T - 32)/9 

60 LET K = M + 273 

70 SCROLL 

80 PRINT T;" ";M;" ";K 

90 NEXT T 


MULTIPLICATION QUIZ 


10 
20 
30 
40 
50 
60 
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INPUT À 
INPUT B 
FOR C = 
SCROLL 


LET D 


LET E 


(degree of difficultu) 
(no. of questions) 


1 TO B 


INT(RND*A + 1) 


INT(RND*A + 1) 


70 LET F = D*E 

80 PRINT "WHAT IS ";D;" TIMES ";E;"p" 

90 INPUT G 

100 SCROLL 

110 IF G = F THEN PRINT G;" IS CORRECT" 

120 IF G<>F THEN PRINT G;" IS WRONG, 
ANSWER IS ";F 

130 SCROLL 

140 NEXT C 

COMPOUND INTEREST 

This next routine works out the balance if a 

sum of money is deposited for a number of 

years at a certain rate of interest. You 

can enter fractions of years as, for 

example, 25 * 7/12 for twenty five years, 

seven months. An interesting exercise is 

to see how long 81000 must be left on 


deposit at 10 per cent to become a million 


dollars. The answer lies somewhere between 
72.4 and 72.5 years -- a surprisingly short 
time -- and you may be interested in finding 


out exactly how long it takes. 


10 INPUT P (principle) 

20 INPUT R (interest rate) 
30 INPUT Y (no. of years) 
40 LET В = 1 + R/100 

50 PRINT "TOTAL IS ";P*R**y 
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CONVERSIONS: 

Acres to square metres: 

10 INPUT À 

20 PRINT A;" ACRES IS ";A*4047; 


" SQUARE METRES" 


Inches to centimetres: 


10 INPUT L 
20 PRINT L;" INCHES IS ";L*2.540; 
"n CM" 


Metres to yards: 


10 INPUT M 
20 PRINT M;" METRES IS ";M*1.0936; 
" YARDS" 


Metres per second to miles per hour: 


10 INPUT M 
20 PRINT M;" METRES PER SECOND" 
30 PRINT "IS ";M*2.237;" MPH" 


Miles per gallon, kilometres per litre: 


10 INPUT M (miles) 

20 INPUT G (gallon) 

30 PRINT "THIS IS ";M/G;" MILES PER" 

40 PRINT "GALLON, OR ";M/G*0.4251; 
"KILOMETRES" 

50 PRINT "PER LITRE" 
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CONVERSION TABLES 


MULTIPLY 


Acres 
Barrels—oil 
British Thermal Units 
Btu/min 
Centimeters 
Cubic centimeters 
Cubic centimeters 
Cubic feet 
Degrees (angle) 
Feet 

Feet 

Feet/min 
Feet/min 
Gallons 

Gallons, Imperial 
Inches 
Kilograms 
Kilometers 
Kilometers 
Kilometers 
Kilometers 
Kilometers/h 
Litres 

Litres 

Metres 

Metres 

Metres 

Miles 

Miles 

Miles 

Miles/h 

Miles/h 

Miles/h 

Miles/h 

Radians 

Radians 

Radians 
Radians/s 
Revolutions/s 
Revolutions/s 


BY 


42 
2.928 x 10 + 
17.57 
0.3937 
3.531 x 10 ^5 
2.642 x 10 4 
7.4805 

60 

30.48 
0.3048 
0.0183 
0.0114 
3.785 
1.2009 
1.540 

2.205 

3281 

1000 
0.6214 

1094 

54.68 
0.2642 
2.113 

3.281 

39.37 

1.094 

5280 

1.609 

1760 

44.70 

88 

1.467 

1.609 

57.30 

3438 

0.637 

9.549 

360 

6.283 


TO OBTAIN 


Square meters 
Gallons-Oil 
Kilowatt-hours 
Watts 

Inches 

Cubic feet 
Gallons 
Gallons 
Minutes 
Centimeters 
Meters 
Kilometers/h 
Miles/h 
Litres 

U.S. gallons 
Centimeters 
Pounds 

Feet 

Meters 

Miles 

Yards 
Feet/min 
Gallons 
Pints(liq.) 
Feet 

Inches 

Yards 

Feet 
Kilometres 
Yards 
Centimetres 
Feet/min 
Feet/s 
Kilometres/h 
Degrees 
Minutes 
Quadrants 
Revolutions/min 
Degrees/s 
Radians/s 
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DATA SORT 
— ONE 


This program sorts up to 100 numbers into descending order. 
Just enter the numbers (positive and negative numbers, plus 
zero, are accepted) one by one when prompted. To sort them, 
enter an S. The program needs the addition of INT in line 85 
before the (Z/8) to run on the ZX81. It fits, as listed, into a 1K 
ZX80. 


3 LET S - -32000 

5 DIM Q(110) 

10 LET Z = 0 

20 LET Y - 10 f 
30 PRINT "ENTER NUMBER ";Z + li" "; 
40 > INPUT Q(Y) 

50 IF Q(Y) - S THEN GOTO 100 
60 LET Z = Z + 1 

70 PRINT Q(Y) 

80 LET Y = Y + 1 

85 IF 8*(Z/8) = Z THEN CLS 

90 GOTO 30 

100 CLS 


110 FOR X = 10 TO Z + 8 

120 FOR N = X + 1 TO Z + 9 

130 IF Q(X) > Q(N) THEN GOTO 170 
140 LET E = Q(X) 

150 LET Q(X) Q(N) 

160 LET Q(N) E 
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170 NEXT N 

180 NEXT X 

190 FOR N = 1 TO Z 

200 PRINT N;" ";Q(N + 9), 
210 NEXT N 


DATA SORT 
— TWO 


You enter the number of items you wish to sort in line 40, and 
then - - when prompted - - enter the actual numbers(any 
number within the range of the computer) to be sorted, follow- 
ing each one with NEWLINE. Change the “greater than or equal” 
into a “less than or equal” in line 130 to sort data into ascend- 
ing order. The program is listed for a 1k ZX81, but will work on 
a ZX80 by changing line 10 into LET Y = 1, and adding a NOT 
before the A(B) in line 130, to take the place of the equals sign 
with the greater than or less than. You'll still need to include 
the greater than or less than of course. 


10 LET Y = PI/PI 

20 LET X = 5 

30 LET A = X 

40 INPUT N (no. of items to be 
sortea) 

50 DIM A(N + X) 

60 FOR T = A TO N + X - Y 

70 INPUT D (item of data) 

80 LET A(A) = D 

90 LET A = A + Y 


100 NEXT T 
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110 FOR B = X TO À - Y 
120 FOR C = B + Y TO A - Y 
130 IF A(B) >= A(C) THEN GOTO 170 


140 LET D = A(B) 


150 LET A(B) А (С) 


D 


160 LET A(C) 

170 NEXT C 

180 NEXT B 

190 FOR B = X TO À - Y 

200 PRINT B - X + Y;”space”;A(B); 
"threespace"; 


210 NEXT B 


ARITHMETIC 
MEAN 


The ZX80 uses integer arithmetic, so you need to add a routine 
to get accurate division. The next program, which accepts a 
series of numbers, and then works out the average of them, 
produces an answer which is correct to two decimal places. The 
routine to produce the floating point answer is in lines 140 to 
180. You may like to take this away from the rest of the 
program and use it on its own. Delete this routine when running 
the program on a ZX81. 


l0 LET C = 0 

20 PRINT "HOW MANY NUMBERS WILL YOU 
ENTER?" 

30 INPUT A 

40 FOR В = 1 TO À 


130 


60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


PRINT "ENTER NUMBER ";B 
INPUT D 

PRINT D,A-B;" TO GO" 

IF 10*(B/10) = B THEN CLS 
LET C = C + D 

NEXT B 

CLS 

PRINT "TOTAL WAS ";C 

LET E = С/А 

LET 01 = 10%(С - E*A)/A 


LET Q2 10*(10*(C - E*A)-Q1*A)/A 
PRINT 
PRINT "MEAN IS ";E;"fullstop"; 


01;02 


PRIME NUMBERS 


This routine will get the 1K ZX81 to work out the first n prime 
numbers, where n is the number you enter in line 40 (INPUT 


A). 


10 
20 
30 
40 


45 
50 
60 


LET X = PI/PI 

LET Y = X + X 

LET D = Y + X 

INPUT A (the number of primes 
you wish to generate) 

SCROLL 

PRINT "1 2 3" 


FOR B = X TO A - D 
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70 LET D = D + Y 
80 LET C = Y + X 
90 LET E = INT(D/C) 
100 LET F = D - E*C 


110 IF F = X - X THEN GOTO 70 
120 IF C >= E THEN GOTO 150 
130 LET C = C + Y 

140 GOTO 90 

150 SCROLL 

160 PRINT D 


170 NEXT B 


A SLICE OF PI 


PI is available direct from the ZX81 keyboard, as you know, 
but you may still be interested in running this 1K program 
which works out a value of PI (or an approximation to it). 
Imagine a square, with a circle drawn in the square which just 
touched the sides. Now, mentally divide the square and circle 
into four. Throw away three quarters of the square, and keep 
the remaining quarter, which features a quarter circle. 


Now, imagine you were dropping coins onto this square in such 
a way that they had an equal chance of falling anywhere within 
the square. Some would land within the quarter circle, and 
some would land outside it. If the coins were dropped in a per- 
fectly random manner, the ratio between the number of 
coins which fell within the quarter circle to those which fell 
outside it would be PI over four. This program saves you the 
trouble of dropping the coins, and prints out - - after every 
“coin” is thrown - - just how close to PI your approximation 
is. The more coins you throw, the more closely the approx- 
imation should approach PI. Here is the result of a few trials 
| ran on my 2Х81: 
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31 coins, value of Pl: 3.0967742 Error - .04481846 
39 coins, value of Pl: 3.1794872 Error - .037894526 
42 coins, value of Pi: . 3.1428571 Error - .0012644893 


5 RAND 2357 С 
12 


10 РОКЕ 16418, 

15 LET А = 0 

20 LET В = A 

25 LET C = 1 

30 GOSUB 65 

35 LET B = B + D 

40 LET A = A + C | 
45 LET P = 4*B/A CL 
50 SCROLL Pv 4934124 2 

55 PRINT A;" ";ABS(PI - P),P 
60 GOTO 30 

65 LET D = 0 

70 LET M = RND 

75 LET K = RND 

80 LET Z = RND 

85 IF M*M + Z*Z < l THEN LET 


D = D + 1 


RETURN 


RND TESTER 


This little routine tests the random number generator on a 1K 
ZX81 (and can easily be adapted to run on a ZX80). It gener- 
ates either 1 or 2, and compares the number of times each has 
been generated. The results of the test, the number of ones, the 
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number of twos, and the difference between them, is printed in 
line 120. You are asked to enter the number of random 
numbers you wish to generate in line 40, and for a large number 
(above 50) І suggest you run it in FAST. 


10 RAND 

20 LET D = 0 (no. of ones) 
30 LET E = O (no of twos) 

40 INPUT À (number of trials) 
50 FOR B = 1 TO A 

60 LET C = INT(RND*2) + l 

70 IF C = 1 THEN LET D = D + 1 
80 IF C = 2 THEN LET E = E + 1 
90 PRINT AT 0,8;B;" “ә 


100 PRINT 1,D 

110 PRINT 2,E 

120 PRINT ,ABS(D - E)/B 
130 NEXT B 


DAY OF THE WEEK 


If you want to know what day your birthday wil! fall on in a 
decade's time, this program will tell you. The first three inputs 
(lines 20, 30 and 40) want the day (a single or double digit), the 
month ( a single or double digit) and year ( four digits, such as 
1982) respectively. You can easily add a line to this 1K ZX81 
program to give you a number of goes without having to press 
RUN between each one. The program will run on the ZX80 if 
you delete all the INTs in lines 80 and 90, and change the 
minus sign in line 50 into a plus, and the plus in line 70 into a 
minus. 


10 LET Ag = "twospaceMONTUEWESTHURFRISAT 


SUN” 
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20 INPUT D (day) 

30 INPUT M (month) 

40 INPUT Y (year, as 1984) 

50 LET Q = Y - (M < 3) 

60 LET K = Q/100 

70 LET T = M + 12* (м < 3) 

80 LET В = INT(13*(T + 1)/5) + INT(5+Q/4) 


- INT(K) + INT(K/4) + D + 5 

90 LET R = R - (7*INT(R/7)) + 1 

100 PRINT D;"/"; м;"/";Ұ;" — ";AS(R*3); 
AZ(R*3 + 1);Ag(R*3 + 2) 


DAYS 


This program, for a ZX80, calculates the number of days bet- 
ween two dates D1 M1 Y1 and D2 M2 Y2 (where D, M and Y 
are day, month and year respectively). 


10 INPUT DI 

20 INPUT MI 

30 INPUT Yl 

40 PRINT D1,M1,Y1 

50 INPUT D2 

60 INPUT M2 

70 INPUT Y2 

80 PRINT D2,M2,Y2 

90 LET F = (Yl - (Ml < 3)) - (Y2 
- (M2 < 3) 


100 LET Y = F*365 + F/4 
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110 LET M = (306*((Ml + 1 - (MI < 3)) 
-(M2 + 1 - )M2 < 3)))/10 
120 LET D = DI - D2 


130 PRINT "DIFFERENCE IS ";ABS(Y + M + D) 


EL MATH QUIZZO 


This 1K ZX81 program creates double-digit addition problems, 
giving a continually updated approximate percentage score of 
the number of correct answers you“ve given. Once you've RUN 


it, examine lines 130 to 160 closely to see how the layout was 
achieved. 


10 RAND 

20 LET A = 10 

30 LET Z = A/A 

40 LET J = Z - Z 

50 LET M = J 

60 LET B = INT(RND*9*A) + À 
70 LET M = M + Z 

80 LET C = INT(RND*9*A) + À 
90 LET D = B + C 

100 FOR F = Z TO (RND*A*A) 


110 NEXT E 


120 CLS 

130 PRINT TAB A;C 

140 PRINT TAB A - Z;"+";B 

150 PRINT TAB A - Z;"two graphic 7" 
160 PRINT TAB A;"?/" 
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170 INPUT F 

180 IF F <> D THEN GOTO 220 

190 PRINT "CORRECT" 

200 LET J = J + Z 

210 GOTO 230 

220 PRINT "YOURS ";F;" RIGHT ANSWER 
WAS ";D 

230 PRINT "SCORE- ";INT(J/M*A*A) 

240 GOTO 60 


FIBONACCI 
NUMBERS 


Way back in 1202, an Italian mathematician, Fibonacci, became 
fascinated by the breeding habits of Italian rabbits: He decided 
to create a mathematical model to show how the population 
of a warren of rabbits increased with time, assuming certain 
ground rules were followed. 


These ground rules were that (a) it takes rabbits a month to 
reach maturity from birth; (b) that one month after growing up, 
and every month until the end of time (or the computer's 
numerical limit is reached, whichever is sooner), each pair of 
mature rabbits will produce another pair of rabbits; and (c) 
that rabbits are immortal. 


l0 LET A = O 

20 LET B = 1 

30 LET C = A + B 
40 SCROLL 

50 PRINT C 
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1.3049595E+15 
2Q.TII148S51E+15 
з.4164546Е +15 


5. 

8.9 
1.44790334 +16 
2Q.34167233E+16 
3.73889063E+16 
6.1 
9.9 
1.6 


The photograph shows a very very large number of rabbits, 
produced on a 2Х81. (It will work on the ZX80 if you change 
the SCROLL into INPUT A$ and add 45 CLS). 


RENUMBER 
— ZX80 


This subroutine renumbers a program in steps of 10. It was 
originally written by Colin Hughes of Luton, and slightly 
modified by John Bloxham of Stratford, and Brian Cross from 
Liphook. However, in its modified form, it was unable to 
handle programs more than 62 lines long. C. Cuthbert of 
Preston suggested a modification to the program which would 
allow it to do this. 
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8999 REM RENUM 

9000 LET L = 10 

9010 LET S = 10 

9020 LET B = 16424 

9030 LET E = PEEK(16393)*256 + PEEK 
(16392) 

9040 LET F = O 

9050 FOR N = B TO E 

9060 IF F THEN GOTO 

9070 LET F = - 1 

9080 IP PEEK(N)*256 + PEEK(N+1) = 
8999 THEN STOP 

9090 POKE N, L/256 

9100 POKE N + 1, L - (L/256)*256 


9110 LET L L + S 


9120 FOR J 0 TO 7 

9130 IF L = 630 + 1280*J THEN LET 
L = L + S 

9140 NEXT J 

9150 IF PEEK(N) = 118 THEN LET F = Q 


9160 NEXT N 
To find out how much memory your current 


program occupies, enter the following as a 
direct command: 
ZX80 version, bu Jeremy Ruston 


PRINT PEEK(16392) + 256*PEEK(16393) - 16461 
ZX81 version, bi Tony Baker: 


PRINT PEEK 16396 + 256*PEEK 16397 - 16562 
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ZX BASIC - ZX80 


NEW 


This clears all program and variables from the ZX80 or ZX81 to 
make way for new programs. Try the following: 


10 LET A = 20 
20 PRINT À 
30 NEW 


Run this, and the screen will flash and there will be nothing 
there. If you enter LIST, you'll find there is no program to list. 


RUN 


This deletes all assigned variables - - as does CLEAR - - then runs 
the current program. 


LIST 


This lists the current program. LIST alone will list it from the 
first line (as will the HOME Key on the ZX80) while LIST n 
(where n is a line number) will list it from line n. 


LOAD 


This loads a program from tape. The computer must be ‘empty’, 
that is, NEW must be used to wipe everything from the memory 
before it will accept a new program. Here is what Sinclair 
Research suggest if you are having LOADing problems: 


1. This is usually due to insufficient signal level at the ZX80 
tape input socket labelled EAR. The ZX80 requires at least 
4 volts peak-peak signal level. If the signal level is too low 
during the LOAD operation the ZX80 will carry on waiting 
for the program and the T.V. screen will remain light grey 
indefinately. 


2. It is important that the correct type of cassette is used. This 
cassette must have 3.5 mm jack type sockets on it for EAR 
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and MIC. When the 3.5 mm jack plug lead is plugged into 
the cassette's EAR socket during a playback of a recording 
the internal speaker of the cassette should become disconn- 
ected. This will mean that the signal which was going to the 
speaker is now available at the EAR socket of the cassette, 
thus the level should be 5 to 6 volts peak-peak at maximum 
volume setting. 


3. A DIN socket on a cassette recorder usually only gives 1.5 
volts peak-peak or less, output, and is therefore unsuitable 
unless it is amplified by an external buffer circuit. 


4. It may help to try loading with only EAR connected with 
batteries or mains. 


5. Do NOT use the output from a Hi-Fi amplifier, as this may 
damage the ZX80. 


SAVE 


This saves a program on tape, at between 250 and 300 baud per 
second. 


GOTO 
This shifts control: 


30 GOTO 100 
30 IF J = 96 THEN GOTO 140 


ht can be very useful if you wish a Program to go round and 
round in an infinite loop like this one: 


10 PRINT "GIVE ME A NUMBER" 

20 INPUT A 

30 PRINT "GIVE ME ANOTHER" 

40 INPUT B 

50 CLS 

60 PRINT "THE TWO NUMBERS ADD UP TO ";A + B 
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70 PRINT 
80 GOTO 10 


This program will run for ever if you let it. You can easily break 
out by entering any letter except A or B when it asks for a 
number. Now, that program showed an unconditional GOTO 
statement. No matter what two numbers, you entered, the 
program added them together in line 60, then went back to 
line 10. The next program shows conditional GOTO statements 
in action: 


10 PRINT "GIVE ME A NUMBER" 

20 INPUT A 

30 PRINT "GIVE ME ANOTHER" 

40 INPUT B 

50 IF A « B THEN GOTO 80 

60 PRINT A;" IS BIGGER THAN ";B 
70 STOP 

80 PRINT B;" IS BIGGER THAN ";B 
IF/THEN 


IF a condition is satisfied (such as IF X=3) THEN carry out 
some other control statement (such as IF X =3 THEN LET B 
= 4). I think of this as the IF the house is on fire THEN scream 
command. 


Here's a routine to show IF/THEN in action: 


10 INPUT A 

20 IF A = l THEN GOTO 10 

30 IF A = 2 THEN PRINT "THAT WAS TWO" 
40 IF A = 3 THEN SAVE 

50 IF A = 4 THEN PRINT A; 

60 IF A- 4 THEN GOTO 50 
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70 IF A = 5 THEN NEW 


Run this a few times, entering the numbers 1, 2, 3, 4 and 5 in 
subsequent runs. The THEN condition can be any of the con- 
trol statements, such as: 


3 THEN LET Z = 2*B + C 


IF A 

IF A 9 THEN GOTO 250 

IF A = BOR B = D THEN LET X = A + B 
A B 


IF AND C = D/2 THEN GOSUB 200 + K 


GOSUB 


This tells the computer to GOTO the SUBroutine specified. It is 
the same as a GOTO, except that a SUBROUTINE ends with 
the word RETURN. When the computer hits the word 
RETURN, it goes back to the line AFTER the GOSUB line. 
Here's an example: 


10 INPUT A 

20 IF A 29 THEN GOSUB 40 

30 GOTO 10 

40 PRINT "THIS IS SUBROUTINE 40" 
50 RETURN 


Run this, entering values for a greater than, and less than 9 and 
see what happens. Subroutines are very useful if you need to go 
to an area of program over and over again. 
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RETURN 


This is the command, as we“ve seen, at the end of a GOSUB 
command which sends the program back to the line AFTER the 
one which sent the computer to the subroutine. 


Here's another example showing both GOSUB and RETURN in 
a program. 


10 INPUT À 

20 INPUT B 

30 GOSUB 50 

40 GOTO 10 

50 LET X = A + B 

60 PRINT A;" PLUS ";B;" = ";X 
70 INPUT АЯ 

80 CLS 

90 RETURN 

FOR...TO 


This is used to set up loops, as in FOR A = 1 TO 10. The 
counter can start anywhere, such as FOR A = 999 TO 1020 
but in ZX80 BASIC there is no provision for STEP. The counter 
increments by one each time. ZX81 BASIC includes a STEP 
provision. Downward loops (such as FOR X= 10 TO 1) are not 
allowed in ZX80 BASIC but in ZX81 BASIC you can have 
FOR X = 10 TO 1 STEP -1. Here isa FOR...TO in action: 


10 INPUT À 

20 INPUT B 

30 IF B < A THEN GOTO 20 
40 FOR C = A TO B 

50 PRINT ,C 

60 NEXT C 
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It is possible to “nest' loops, that is, have one loop inside the 
other . Try the following: 


10 FOR A = 1 TO 5 

20 FOR B = 1 TO 5 

30 PRINT A;" ";B;" ";A*B 
40 NEXT B 

50 NEXT A 


Once you've run that, swap lines 40 and 50 and see what 
happens. You must nest loops correctly, i.e. the first loop 
started must be the last loop to have a NEXT. 


This can be used in a quite useful program to print out the 
multiplication table: 


10 FOR Z = 1 TO 12 

20 FOR Y = 1 TO 12 

30 PRINT Z;" TIMES ";Y;" = ";zi+y 
40 NEXT Y 

50 INPUT Ag 

60 CLS 

70 NEXT Z 

NEXT 


At the end of the counter loop(set by the FOR...To line) the 
NEXT sends control back to the FOR...TO line, and A(if the 
loop is FOR A = 1 TO something) becomes A + 1. NEXT can- 
not be used in a program without a corresponding FOR. 


CONTINUE 


This is a very useful command if the program stops (or you stop 
it) for some reason. Press CONTINUE and the program execu- 
tion will go on, from the line where you stopped, without losing 
variables, that is, it is the same as GOTO n, where n is the line 
where execution stopped. The only exception is if CONTINUE 
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is used after a STOP command in the program, where it is the 
same as GOTO n + 1. 


INPUT/OUTPUT STATEMENTS 
PRINT 


This allows the computer to output data on the TV screen: 


10 LET A = 100 
20 PRINT "A EQUALS ";A 
INPUT 


This allows the user to enter data via the keyboard 


10 PRINT "ENTER A NUMBER” 

20 INPUT À 

30 ` PRINT "THE NUMBER WAS ";A 
LET 


This is the assignment statement. It assigns a value to a variable, 
as in LET A = 10. Variable names can be any length, but must 
begin with a letter: 


10 PRINT "ENTER YOUR AGE IN YEARS” 
20 INPUT AGE 

30 PRINT "YOU ARE ";AGE;" YEARS OLD" 
10 PRINT "ENTER A NUMBER” 

20 INPUT NUMBERONE 

30 PRINT "AND ANOTHER" 

40 INPUT NUMBERTWO 

50 PRINT "THEY ADD UP TO "; NUMBERONE 


+ NUMBERTWO 
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10 PRINT "ENTER A NUMBER" 


20 INPUT N23JKM 

30 PRINT "AND ANOTHER" 

40 INPUT K9 

50 PRINT "THEY ADD UP TO ";N23JKM 
* K9 


The variable name, no matter what its length, can be manipu- 
lated as if it was the number which has been assigned to it: 


10 PRINT "ENTER YOUR AGE IN YEARS" 

20 INPUT AGE 

30 LET DAYS - AGE*365 

40 PRINT "YOU ARE ";DAYS;" DAYS OLD" 

50 LET HOURS - DAYS*24 

60 PRINT "WHICH IS ";HOURS;" HOURS" 

70 LET MINUTES - HOURS*60 

80 PRINT "OR ";MINUTES;" MINUTES" 
CLEAR 

This clears the stored values of variables, and it should be used 
before SAVEing a program: ol 
10 LET A = 96 

20 PRINT A 

30 CLEAR 

40 PRINT A 


When you run this, you'll get an error code from line 40, 
because the computer had no value assigned to A. The value 


that was assigned to A in line 10 was erased by the CLEAR 
statement in line 30. 
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CLS 


This clears the screen. It does not operate as CLEAR in that the 
computer still ‘remembers’ what was assigned before the clear 
screen command was used: 


10 PRINT "WHAT IS YOUR NAME?" 
20 INPUT Ag 

30 CLS 

40 PRINT “HELLO, ";A8 

DIM 


This sets up, DIMensions, the size of an array. Arrays are one 
dimensional only on the ZX80, and there are no string arrays. 


An array should be thought of as a list, in which each item on 
the list has been numbered for convenience, so you can refer 
to the number of the item on the list and find out what item is 
there. To set up an array for 20 ELEMENTS (as the items in the 
list are called) you enter DIM A(19) on the ZX80 (one less than 
you need) or DIM A(20) on the ZX81. In practice, whichever 
machine you have, you can DIM A(or any letter to Z) the 
number of items you want. 


10 DIM K(10) 

20 FOR A = 1 TO 10 
30 LET K(A) = A*A 

40 NEXT À 

50 FOR C = 1 TO 10 
60 PRINT K(C);" ";С 
70 NEXT C 


The DIM statement automatically sets all the elements in the 
array to equal zero. 


10 DIM G(200) 
20 PRINT G(9),G(117),G(32) 
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REM 


The REM statement, short for REMark, does not do anything 
in a program, that is, the computer ignores it when it comes to 
it. However, it is very useful to remind you what is going on the 
program. 


10 PRINT "ENTER A NUMBER" 
20 REM GET NUMBER 

30 INPUT A 

40 REM SQUARE IT 

50 LET N = A**2 

60 PRINT A;" SQUARED IS ";N 


RANDOMISE/RAND 


This sets the seed of the random number generator equal to the 
number of frames of the TV since switch-on. It is a good idea 
to include RANDOMISE as the first line of any program which 
needs random numbers as it ensures the numbers are closer to 
being genuinely random. 


ZX80 

10 RANDOMISE 

20 LET A = RND(10) 

30 PRINT À 

2Х81 

10 RAND 

20 LET A = INT(RND*10) + 1 
30 PRINT À 

POKE 


This allows commands to be entered directly into addresses. 
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PEEK 


This looks at the contents of a specific address. 


ZX80 

10 REM AAA 

20 POKE 16427, RND(10) 
30 PRINT PEEK (16427) 


List this and look at the REM statement 


ZX81 

10 REM AAA 

20 POKE 16514, INT(RND*10)+1 
30 PRINT PEEK 16514 

CHR$ 


This allows the user to print any character, by giving its char- 
acter number. 


10 FOR H = 1 TO 255 

20 PRINT H;" "; CHRS(H);" "; 
30 NEXT H 

STR$ 


This allows an integer variable to be treated as a string variable. 


10 LET A = RND(10) 
20 LET Fg = STRS(A) 
30 PRINT Fg 

TLS 


This gives the string minus its first character. 


10 LET Ag = "ABC" 
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20 PRINT Ag 
30 LET Ag = TLS(AS) 
40 PRINT Ag 


A new ROM equivalent is (2 TO): 


10 LET Ag = "АВС" 

20 PRINT Ag 

30 LET A$ = Ag (2 TO) 

40 PRINT Ag 

CODE 

This gives the code corresponding to the first character in a 
string. 

10 PRINT "ENTER A LETTER" 

20 INPUT Rg 

30 PRINT "THE CODE OF ";Rg; 


"IS "; CODE(RS) 


"S Sa. wa FOR сото CS IR шпат LAT LE” 

STOP LPRINT SLOW FAST LLIST жж + = пто 
Ави Ea LIY GL CL ни K L Une 
Ba rS AHIUAMQ — Л An» ЕРЕ vå, LEN Vs 


RND 


This provides a pseudo-random number. It is used differently 
on the ZX80 and ZX81. 


2Х80 

10 LET А = RND(88) 

2Х81 

10 LET А = INT(RND+88) + 1 


151 


USR 

Machine code subroutine 

ABS 

This gives the absolute value of a number, that is, the number 


with a positive sign. Run the following, making sure the second 
number is larger than the first: 


10 INPUT J 

20 INPUT Y 

30 PRINT J;" MINUS ";Y;" IS ";J - Y 
40 PRINT "ABSOLUTE VALUE ";ABS(J - Y) 


ZX BASIC - ZX81 


Additional functions are available on the ZX81. 


These include: 


Variables 

String arrays: А$ — 2$ 

Аггау$ 

Numeric arrays: 'n' dimension,subscript range starts at 1. 
String arrays: т” dimension,subscript range starts at 1. If 


(more correctly, the last subscript is omitted it's treated as a 
character arrays) — fixed length string. 


Strings 
Undimensioned strings can be any length. 
Can be concatenated (+) 


Substring e.g. BZ = A$ (2 TO 4). 
Literal strings e.g. CS = “QWERTY”. 
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Statements available 


In this list, 

v represents a variable. 

х,у,2 represent numerical expressions. 

m,n represent numerical expressions that are 
rounded to the nearest integer. 

e represents an expression. 

f represents a string valued expression. 

S represents a statement. 


Note that arbitrary expressions are allowed everywhere (except 
for the line number at the beginning of a statement). Thus 
“GOTO LN A** 2“ is valid. 


DIM... Deletes any array or string with the same 
name, sets up space for a new array in the 
usual way, and initialises its elements to 0 


or sé m 
FORATOB Generally standard, but entirely dynamic in 
STEP C its action. 
IF x THEN $ If x is true (defined to mean greater in 


absolute value than 2 712 ) then s is exec- 
uted. The standard values of true and 
false as yielded by relational operators are 


1 and 0. 

LOAD “f” Looks for a program called “f” on tape and 
loads it and its variables. 

PAUSE n Sends the display file to the TV screen for 
n frames (50 frames per second) or until a 
key is pressed. 

PLOT m,n Sends the PLOT position (a system var- 


iable) to m, n) and blacks in that pixel. 
Also changes the PRINT positon. 


POKE m,n Writes n in byte m in RAM. 
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PRINT... Mostly standard. The display file has 22 
lines of 32 characters each (2 zones of 16 
characters) and when this is filled it is sent 
to the TV with error 5. CONTINUE carries 
on with the program with no loss of data. 

PRINT AT m,n Moves the PRINT position to line m, 
character n. 

RAND Standard. 

RAND n If n is given, this is made the value of the 
seed of the random number generator. 

SAVE "f" Saves program and variables on tape and 
calls it “f”. 

SCROLL Scrolls display file up one line, losing top 
line and making space at bottom. 

Functions Туре of Operand Result 

— number Negate 

ABS number Absolute magnitude 

ARCOS number In Radians 

ARCSIN number In Radians 

ARCTAN number In Radians 

CHR$S number The character whose code is x. 

CODE number The code of the first character 

in x ( or 0 if x is empty) 

COS number In radians 

EXP number e* 

INKEYS number Reads the keyboard. The 
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result is a character represent- 
ing the key pressed, otherwise 
the empty string. 


INT 
LEN 
LN 
NOT 


PEEK 


PI 
RND 


SGN 
SIN 


STR$ 


TAN 
USR 


VAL 


number 
string 
number 


number 


number 


number 


number 


number 


number 


number 


string 


Integer. 
The length of x. 
Natural log 


Exclusive - ORs the first byte 
of x with 113, so that NOT 0 
=1, NOT 1 — 0. 

Unlike the other functions, 
NOT has binding power 4 
(between AND and the rel- 
ational operators) so that for 
instance NOT A=B has the 
same value as NOT (A=B) 
land A < > B). 

The value of the byte in store 
whose address , is x. 
(3.1415927) 


A random number between 0 
and 1. 


Yields —1,0,+1. 


In Radians 


The string of characters that 
would appear on the screen if 
x were PRINTed. 


In Radians. 


Converts x to an address in 
store and calls that address as 
a machine code subroutine. 
On return, the result is the 
contents of the BC register 
pair. 


Evaluates x as a numerical 
expression (x must not con- 
tain the quote image char- 
acter). 
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DOCUMENTATION 


Much documentation is a waste of time and paper. Although 
computer courses at schools tend to stress the need for docum- 
entation, it is in my opinion — unnecessary in many cases. 


The cardinal rule for documentation is : If the algorithm is not 
transparent, document. 


It is more important to tell an operator what to do after press- 
ing RUN than it is to tell the operator why the computer does 
what it does when you do, although most operators will want to 
know the ‘why’ in due course. 


If you cannot fit the instructions into the main program, either 
write a shorter, “preface” program, or provide the user with 
clearly written instructions, and explain what kinds of responses 
the computer expects from its prompts. 


Whenever you have the memory, include lines to exclude un- 
wanted input. 


For example, if line 70 says “INPUT YOUR GUESS (1 TO 
10 )", line 80 will be something like INPUT A, and line 90 
should be IF A «1 OR A » 10 THEN GOTO 70. This will 
ensure that erroneous data will not contribute to a program 
crash. 


The code of a string can be used to check string input, such as 
IF CODE(AZ) = 57 THEN . . .or IF NOT CODE(AS$) = 30 
THEN. . .or the less than sign can be used to stop a program if 
anything other than a null string is put in by the operator. The 
line, in this case, could read: IF № > ”” THEN STOP. 
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OVERHEATING x 


Many users complain about the regulator IC heat sink getting 
hot. This problem can be partly overcome by ensuring that the 
unregulated DC input to the ZX80 is nearer 7V than the higher 
11V that is quoted. In fact, about 7.5V is the lowest that is 
possible without the 5V falling within the ZX80. If this can be 
achieved, it means that the regulator does not has to dissipate 
so much power, and so remains cooler. 


A simple calculation shows that, at 500mA, the 11V input 
causes about 3 watts to be dissipated, the 7.5V input causes 
about 1.25 watts and the supplied 9V input causes 2 watts to 
be dissipated. With no forced cooling, this can generate a lot of 
heat. 


MEMORY PACK 


As you've probably noticed, you can't use a 3K memory expan- 
sion board with the ZX81, unless you make the following mod- 
ification. 


Remove the back of the RAM pack cover to expose the integ- 
rated circuits. Now simply cut the track to the bottom rear 
connector pin as shown. This pin is not used on the ZX80 and is 
the ROM C.S. on the ZX81. 
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SPECIFICATIONS 
ZX80 


Dimensions 

Width 174mm (6.85 in) 
Depth 218mm (8.58 in) 
Height 38 mm (1.5 in ) 
Weight 300g (10.5oz) 


Microprocessor/Memory 

Z80A 3.25 MHz clock 

ROM: 4K bytes containing BASIC 

RAM: 1K bytes internal, externally expandable to 16K bytes. 


Keyboard 

40 key touch-sensitive membrain. Unambiguous context key- 
word entry gives equivalent of 62 keys. After entering the 
statement number the next key you touch enters the keyword 
printed above it automatically. 


Display 

Requires an ordinary domestic black and white colour TV. The 
lead supplied connects between the ZX80 and your TV's aerial 
socket. The display organisation is 24 lines of 32 characters 
per line showing black characters on a white screen. The ZX80 
does not connect to a printer. 


<> <> => HOME RUBOUT 
IF INPUT PRINT 


REM 
" $ 
ae CE OD PD 09 
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Programming 

Programs can be entered on the keyboard or loaded from 
cassette. The ZX80 has automatic “wrap round” so lines of 
program can be any length but not multi-statement lines. 


Syntax check 

The syntax of the entered line is checked character by char- 
acter. A syntax error cursor marks the first place the syntax 
breaks down if there is an error. Once any errors have been 
edited out the syntax error cursor disappears. Only syntax 
error-free lines of code are accepted by the ZX80. 


Graphics 

Total of 22 graphics symbols giving 48 x 64 pixels resolution 
consisting of 10 symbols plus space and inverses. Includes 
symbols for drawing bar charts. Under control of your BASIC 
program any character can be printed in reverse field. 


Editing 

The line edit allows you to edit any line of program or input 
including statement numbers. The edit and cursor control 
keys are EDIT, RUBOUT, HOME. 


Arithmetic 
Arithmetic operators +,—,x, + exponentiate. Relational oper- 
ators <, >, = , yielding 0 or — 1. Logical operators AND OR 


NOT yielding boolean result. Relational operators also apply to 
strings. ZX80 BASIC uses 16 bit two's complement 
arithmetic ( + 32767 ). 


Variables 

Numeric variable names may be any length, must begin with a 
letter and consist of alphanumerics. Every character in the name 
is compared thus an infinity of unique names is available. 


String variables may be assigned to or from, shortened but not 


concatenated. String variable names are A$ — 7$. Strings do not 
require a dimension statement and can be any length. 
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Arrays have a maximum dimension of 255 (256 elements) each. 
Array names consist of a single letter A—Z. 


Control variable names in FOR. . . NEXT loops consist of a 
single letter A—Z. 


Expression evaluator 

The full expression evaluator is called whenever a constant or 
variable is encountered during program execution. This allows 
you to use expressions in place of constants especially useful in 
GOTOs, GOSUBs, FOR...NEXT etc. 


Immediate mode 

The ZX80 will function in the "calculator mode" by immed- 
iately executing a statement if it is not preceded with a line 
number. 


Cassette interface 

Works with most domestic cassette recorders. The transfer rate 
is 250 baud using a unique tape-recording format. Other 
systems are not compatible with the ZX80's. The ZX80 also 
SAVES the variables as well as the program on cassette. There- 
fore you can save the data for updating next time the program 
is executed. The ZX80 does not support separate data files. The 
lead supplied with the ZX80 is fitted with 3.5mm jack plugs. 


Expansion bus 

At the rear has 8 data, 16 address, 13 control lines from the 
processor and Оу, Бу, 9-11у, Q and internal memory control 
line. These signals enable you to interface the ZX80 to your 
own electronics, PIO, CTC, SIO if you want МО ports etc. 


Power supply 
The ZX80 requires approximately 400mA from 7—11v DC. It 
has its own internal 5v regulator. 


TV standard 

The ZX80 is designed to work with UHF TVs (channel 36)and 
is the version required for use in the United Kingdom. The 
ZX80 USA is designed to work with a VHF TV(American 
channel 2. European channel 3) and is the version required for 
the American TV system, also for countries without UHF. 
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ZX81 


Dimensions 

Width 167mm (6.32 in) 
Depth 175mm (6.80 in) 
Height 40 mm (1.57 in) 
Weight 350 gms (12.15 oz) 


Microprocessor/Memory 

Z80A 3.25 MHz clock 

ROM: Containing 8K BASIC interpreter 

RAM: 1K bytes internal, externally expandable to 16K bytes. 


Keyboard 

40 key touch-sensitive membrane. Using function mode and 
single press key-word system, this gives the equivalent of 91 
keys and also graphics mode allows an additional 20 graphical 
and 54 inverse video characters to be entered directly. 


Display 

Requires an ordinary domestic black and white or colour TV. 
The aerial lead supplied connects the ZX81 to the TV aerial 
socket. The display is organised as 24 lines of 32 characters 
with black characters on a white background. 


Two mode speeds 

The ZX81 can operate in two software-selectable modes - FAST 
and NORMAL. FAST is ideal for really high-speed computing. 
In NORMAL mode however the ZX81 allows continuously 
moving, flicker-free animated displays. 


Printer 
The 8K ROM will permit instructions (LPRINT, LLIST and 
COPY) to drive the Sinclair ZX Printer. 


Programming 

Programs can be entered via the keyboard or loaded from cass- 
ette. Programs and data can be saved onto cassette so that they 
are not lost when the ZX81 is turned off. 


Syntax check 
The syntax of a line of program is checked on entry. A syntax 


error cursor marks the first place the syntax breaks down if 
there is an error. The syntax error cursor disappears when errors 
have been corrected. Only lines free from syntax errors will be 
entered into the program. 


Graphics 

Apart from the 20 graphics characters, space and its inverse, the 
display may also be divided into 64 x 44 pixels, each of which 
may be ‘blacked’ in or ‘whited’ out under program control. 


Editing 

A line editor allows you to edit any line of program or input, 
including program line numbers. Lines may be deleted, in- 
creased or decreased in size. 


Arithmetic 

Arithmetic operators +, —, x, +, exponentiate. Relational oper- 
ators =, < >, >, <,< =,> =, may compare string and arithmetic 
variables to yeild O (False) or 1(True). Logical operators AND, 
OR, NOT yield boolean results. 


Floating-point numbers 

Numbers are stored in 5 bytes in floating-point binary form 
giving a range of + 3 x 10 7**to + 7 x 10 accurate to 9% 
decimal digits. 


Scientific functions 
Natural logs/antilogs; SIN, COS, TAN and their inverses;SQR; 
ex, 


Variables 

Numerical: any letter followed by alphanumerics 

String: Аў to 2$ 

FOR-NEXT loops: A—Z (loops may be nested to any 
depth 

Numerical arrays: A—Z 

String arrays: Ag to 2$ 

Arrays 


Arrays may be multi-dimensional with subscripts starting at 1. 


Expression evaluator 

The full expression evaluator is called whenever an expression, 
constant or variable is encourrtered during program execution. 
This powerful feature allows use of expressions in place of 
constants and is especially useful in GOTO, GOSUB etc. 
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Command mode 
The ZX81 will execute statements immediately, enabling it to 


perform like a calculator. 


Cassette interface 

Works using domestic cassette recorders. The transfer rate is 
250 baud and uses a unique recording format not compatible 
with other systems. The ZX81 will save the data as well as 
the program to avoid the need to re-enter the data when the 
program is next loaded. ZX81 will search through a tape 


program is next loaded. 


Expansion port 

At the rear, this has the full data, address and control buses 
from the Z80A CPU as well as OV, +5V, +9V,@ and the mem- 
ory select lines. These signals enable you to interface the ZX81 
to the Sinclair 16K RAM pack and ZX printer. 


Power supply 
The 2Х81 requires approximately 420mA at 7—11V DC. It has 


its own internal 5V regulator. The ready assembled ZX81 comes 
complete with a power supply. The ZX81 kit does not include 
a power supply. 


TV standard 

The ZX80 is designed to work with UHF TVs (channel 36)and 
is the version required for use in the United Kingdom. The 
ZX80 USA is designed to work with a VHF TV(American 
channel 2. European channel 3) and is the version required for 
the American TV system, also for countries without UHF. 
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HEX DUMP 


(ZX80) - JEREMY RUSTON 


10 LET K = O 

20 INPUT Ag 

30 FOR T = 0 TO 3 

40 LET S = l6**(3 - T) 

50 LET K = K *(CODE(Ag) - 28) * S 
60 LET АЯ = TL# (Ag) 

70 NEXT T 


80 FOR T = K TO K + 20 
90 LET A = T 
100 FOR B = 0 TO 3 


110 LET S = 3 - B 

120 PRINT CHRg(A/l16**S + 28); 

130 LET А = A - (A/l6**S)*l6**S 

130 NExT B 

150 PRINT " "; 

160 LET X = PEEK(T) 

170 PRINT CHRS(X/16 + 28);CHR8(X - 
(X/16)*16 + 28 

180 NEXT T 

190  INPUT А2 

200 IF NOT АЗ = "" THEN STOP 

210 CLS 

220 LET K = K + 10 

230 СОТО 80 


SET & RESET (ZX80) - JEREMY RUSTON 


SET: 

POKE Y*33 + X + l + PEEK(16396) + 
PEEK(16397)*256, 128 

RESET: 

POKE Y*33 + X + 1 + PEEK(16396) + 
PEEK(16397)*256, 0 
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GRAPHICS ... 


SYMBOLS and CODES 


i 
== 
"> 
ы 
"Иш 


Ё 
= 
ий 
k. 
=. 


130 


131 


132 


133 


ЕЛЕР 


= 


135 


136 


137 


138 


139 


65 


CONVERSIONS 


SYSTEM VARIABLES: 
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OLD ROM NEW ROM/ 

ZX81 

16384 16384 

16385 16385 

16386 16391 

16387 16392 

16388 no equivalent 

16389 no equivalent 

16390 16394 

16391 16395 

16392 16400 

16393 16401 

16394 16404 

16395 1É405 

16396 16396 

16397 16397 

16398 no equivalent 

16399 no equivalent 

16400 16412 

16401 16413 

16402 16418 

16403 16419 


This table is designed 


16404 
16405 
16406 
16407 
16408 
164C9 
16410 
16411 
16412 
16413 
16414 
16415 
16416 
16417 
16418 
16419 
16420 
16421 
16422 
16425 
16424 
16425 
16426 
16427 


16420 
16408 
16409 
16427 
16428 
16429 
16432 
16433 
16434 
16435 
16436 
16437 


no 
no 
no 
no 
no 
no 


equivalent 
equivalent 
equivalent 
equivalent 
equivalent 
equivelent 


16406 
16407 
16509 
16510 
16515 
16514 


primarily for POKEing and 
PEEKing into REM statements. 


NEU ROM/ZX81 


OLD ROM 
16426 16513 
16427 16514 
16428 15515 
16429 16516 


16438 16517 


16431 
16432 
16433 
16434 
16435 
16436 
16437 
16438 
16439 
16448 
16441 
16442 
16443 
16444 


16518 
16519 
16528 
16521 
16522 
16523 
16524 
16525 
16526 
16527 
16528 
16529 
16530 
16531 
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ZXS8I Hexadecimal Chart 


CODE CHARACTER HEX 
g space 29 
1 n #1 
2 a. 42 
3 = g3 
4 kJ 24 
5 L g5 
6 "a #6 
7 Е g? 
8 Ps g8 
9 ka 09 
10 Fa gA 
11 " 08 
12 Е gc 
13 gD 
14 ЙЕ 
15 ? OF 
16 ( 1d 
17 ) 11 
18 > 12 
19 < 13 
20 = 14 
21 + 15 
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23 
24 
25 
26 
27 
28 
29 
3g 
31 
32 
33 
34 
35 
36 
27 
38 
39 
4g 
41 
42 
43 
44 
45 
46 
47 
48 
49 


`. 


~ 


Г X CG) a Z G л г O O шь QO DAN ou £ G ку — Re 


17 

18 

19 

1A 

18 

1С 
10 

1E 

1F 
2d 
21 

22 
23 
24 
25 
26 
27 
28 
29 
2А 
28 
2С 
20 
2Е 
2F 
30 
31 


sg 
51 
52 
53 
54 
55 
56 
57 
58 
59 
eg 
61 
62 
63 
64 
65 
66 
67 
68 
69 
7d 
71 
72 
73 
74 
75 
76 


N < > E < CHM до о O = a 


RND 
INKEYZ 
PI 


32 
33 
34 
35 
36 
37 
38 
39 
3A 
38 
3C 
30 
3E 
3F 
4g 
41 
42 
43 
44 
45 
46 
47 
48 
49 
4A 
48 
4C 
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188 
1g1 
192 
183 


170 


40 
4E 
4F 
5g 
51 

52 
53 
54 
55 
56 
57 
58 
59 
5A 
58 
SC 
50 
SE 
SF 
6d 
61 
62 
63 
64 
65 
66 
67 


104 
125 
186 
197 
128 
109 
112 
111 
112 
113 
114 
115 
116 
117 
118 
119 
12d 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 


Cursor up 
cursor doun 
cursor left 
cursor right 
GRAPHICS 
EDIT 

NEULINE 
RUBOUT 

K/L MODE 
FUNCTION 


2 
o 
< 


number 
cursor 


= 
all 
k 


68 
69 
6A 
68 
6С 
60 
6E 
6Ғ 
72 
71 
72 
73 
74 
75 
76 
77 
78 
79 
7A 
78 
7C 
70 
7E 
?F 
84 
81 
82 


131 
132 
133 
134 
135 
136 
137 
138 


Decimal 


139 
the inverse of the listed 


character. 


139 
14g 
141 
142 
143 
144 
145 
146 
147 
148 
149 
15g 
151 
152 
153 
154 


n 


83 
84 
85 
86 
87 
88 
89 
BA 


to 


88 
BC 
8D 
BE 
8F 
94 
91 
92 
93 
94 
95 
96 
97 
98 
99 


JA 


155 
156 
157 
158 
159 
168 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
177 
178 
179 
188 
181 


DOZ —< r X G m т со m m O GO шь AO Ф ло (л &Е (ы ку ә Rs 


98 
9C 
90 
9E 
9F 
Ag 
A1 
A2 
A3 
A4 
AS 
A6 
A7 
A8 
A9 
AA 
AB 
AC 
AD 
AE 
AF 
8g 
81 
82 
83 
B4 
B5 
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182 
183 
184 
185 
186 
187 
188 
189 
194 
191 
192 
193 
194 
195 
196 
197 
198 
199 
202 
201 
202 
203 
204 
205 
206 
207 
208 
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3 N < хе c C A t да 


2> 
4 


TAS 
not used 
CODE 
VAL 
LEN 
SIN 
COS 
TAN 
ASN 
ACS 
ATN 
LN 
EXP 
INT 
SQR 


86 
87 
B8 
B9 
BA 
BB 
BC 
BD 
BE 
ағ 
cg 
C1 
C2 
C3 
C4 
CS 
C6 
C? 
C8 
C9 
CA 
CB 
CC 
CO 
CE 
CF 
ой 


209 
219 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
234 
231 
232 
233 
234 
235 


STEP 
LPRINT 
LLIST 
STOP 
SLOW 
FAST 
NEW 
SCROLL 
CONT 
DIM 
REM 
FOR 


D1 
D2 
23 
D4 
DS 
D6 
D7 
D8 
09 
DA 
DB 
DC 
DD 
DE 
DF 
ЕЙ 
E1 
E2 
ЕЗ 
Ед 
Е5 
ES 
E7 
E8 
E9 
EA 
ЕВ 


236 
237 
238 
239 
240 
241 
242 
243 
244 
245 


GOTO EC 246 PLOT 


GOSUB ED 247 RUN 
INPUT EE 248 SAVE 
LOAD EF 249 RAND 
LIST Fø 259 IF 

LET F1 251 CLS 
PAUSE F2 252 UNPLOT 
NEXT F3 253 CLEAR 
POKE F4 254 RETURN 
PRINT FS 255 COPY 


ERROR CODES: 


со ы Сел ww м — ж 


Ow pw 


e 


MEANING 


SUCCESSFUL COMPLETION 
NEXT WITH NO FOR 
VARIABLE NAME NOT FOUND 
SUBSCRIPT ERROR 

NOT ENOUGH MEMORY 

NO MORE SCREEN ROOM 
АКІТНМЕТІС OVERFLOW 
RETURN WITH NO GOSUB 
ATTEMPT TO USE INPUT IN 
DIRECT MODE 

STOP STATEMENT EXECUTED 
INVAL ID ARGUMENT 
INTEGER OUT OF RANGE 
VAL FORMS INVALID NUMERICAL 
EXPRESSION WHEN TESTED 
PROGRAM INTERUPT/BREAK 
EMPTY STRING FOR SAVE 


F6 
F7 
FA 
F8 
FA 
FB 
FC 
FD 
FE 
FF 
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The Gateway Guide 
to the ZX81 and ZX80 


The Gateway Guide to the ZX81 and ZX80 by Mark 
Charlton contains more than 70 fully documented and 
explained programs for the ZX81 (or 8K ZX80). The book 
is a "doing book," rather than a reading one and the 
author encourages the reader to try things out as he goes. 
The book starts at a low level and assumes the ZX80 or 
7Х81 is the reader's first computer. However by the end, 
the reader will have become quite proficient. 

The majority of programs in the books were written 

. deliberately to make them easily convertible from machine 
to machine (ZX81, 4K ZX80 or IK ZX80) so no matter 
which you have, you'll find many programs which you can 
run right away. : 

The book describes each function and statement in 
turn, illustrates it in a demonstration routine or program 
and then combines it with previously discussed material. 


